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News and Reviews 


by Mike Dunn, Co-Editor 

Another new year starts for ACE; and as time goes on, our members 
become more and more advanced in their programming abilities. This 
issue has some great programs, but little in BASIC. Much is devoted 
to ACTION!, the new language developed by Clint Parker and sold by 
O.S.S. Clint will be submitting programs to ACE; the first is a compa- 
nion to a similiar program in BASIC by Jerry White in the FEB issue of 
ANTIC! More on that in a separate article. Stan Ockers' game this 
month is also in ACTION!. And Ruth Ellsworth turns to ACTION! It 
seems anyone who tries it really likes it, because it is easy to program 
with and very fast. We also have a PILOT program by Ruth and a nice 
machine-language utility by Greg Menke. We also have a large number 
of excellent articles taken from other user group newsletters which 
are really outstanding and we will try to include them as we have room. 


The most intensive reviewing this month has been with the new 
Atari 800XL 64K computer. Kirt Stockwell, Jim Bumpas and | have us- 
ed it alot. It has a very nice keyboard with the keys where they are sup- 
posed to be — no hitting the Atari Key by mistake. The keyboard feed- 
back is through the TV speaker, so you can set the loudness by the 
volume control as you like it. The picture quality is better than the old 
800 — more vivid colors with no interference, possibly because the en- 
tire power supply is now separate. The sound is also better. The 
BASIC is built in and has several new graphic modes (16 in all). To 
disable BASIC, you hold the OPTION key down when booting up. 
There is a built in self-test program, and a HELP key available. It also 
has the new expansion port, but no information seems to be available 
on the pin-out of the port. The computer is nice and small, and looks 
beautiful. It has the same OS as the 1200XL, which means there are 
new features but many of the older 3rd party software programs will 
not run without a translator disk available from Atari which converts 
the OS to the old kind, so that most software will run. This Translator 
disk is not copyrighted, so it is easy to get. It does not work with car- 
tridges; at least | couldn't get it to work. New software coming out will 
work; the problem is the use of illegal entry points mostly in protec- 
tion schemes. A very nice computer for its price and should sell well. 
To keep the price down, | guess, the documention is almost non- 
existent — if you get one and don't know about computers, get the 
book Your Atari Computer by Lon Poole at the same time. Flash: the 
new Feb issue of Consumer Reports rated the Atari 600XL with 
AtariWriter and the Atari 1050 as the best over others in its class!! 
They go on to say that with the memory of the the 64K model, they 
would like it even better. 


In the Jan issue of Computers and Electronics magazine is a 
wonderfully written article by Randy Carlstrom for a cassette interface 
allowing the use of a standard tape recorder with your Atari. The basic 
kit costs only $20, and for $30 you get a kit with a tape-duplicator to 
make digital copies. | bought the kit; it took 2 hours including interup- 
tions to make. The intructions are good, and it worked the first time. 
The unit does not automatically shut off, so | called Randy and asked 
him if it could be modified to do so. He said he will send us the info to 
do so, but did not put it in because he wanted to keep the cost of the 
unit under $20. It turns out it is a very simple modification using a $3 
Radio Shack relay and a diode. He also sells assembled and tested 
units, as well as the bare board and parts. Write him at RC Systems 
121 West Winesap Road, Bothell, WA 98012 for more info. 


The most useful program we received this month is a printer dump 
program by Jerry Allen, Printwiz. With options for the Epson, NEC, Pro- 
writer, Gemini, and Okidata printers, this $29 program will dump any 
graphic screen. It has many options, including the ability to change 
the size of the picture, etc., and prints horizontally rather than vertical- 
ly as most other dumps. You can print in inverse, vary the dot density, 
etc. As with all dumps, it cannot print player-missile graphics, or pro- 
tected games. Included is a lister program allowing you to print out 
listings with the “unprintable” characters at any width you desire on 
the above printers. Jerry also includes a note about the Koala Pad: 
with the picture you want on the screen, not the storage mode, you 
can press the “ " key to save in the normal Graphics Master/Micro- 
painter format. The “ & " key loads the filename "PICTURE". Ali files 
are saved with this filename, so the names must be changed by DOS if 
you want more than one picture per disk without erasing the old one. A 
very fine program, available from Allen Macroware, POB 2205 Rendon- 
do Beach, CA 90278 for $30. Jerry has also updated his popular pro- 
gram DiskWiz II; it is much faster and has more features than ever 
before. 


Also received this month, but too late for a complete review, were a 
number of the wonderful Tricky Tutorials by Educational Software (for- 
mally Santa Cruz Ed. software), 4565 Cherryvale Ave., Soquel, CA 
95073. These come with a disk full of programs and nice booklets of 33 
to 68 pages explaining all. Included were TT#12 ($30) The S.A.M. 
Tutorial, teaching you to program the software “mouth” by Don't Ask 
Software. Included is a utility to add to older versions of S.A.M. to add 
"knobs". TT#13 BASIC Programming Tools contains a group of useful 
machine language tools allowing you to Renumber or Delete lines, 
Trace, Expand multi-statement lines to single statement lines for 
debugging, and list the program variables and constants. Also includ- 
ed is a lister for listing unlistable characters in listings. A lot of utility 
for $30. TT414 Advanced Programming Tools has many sophisticated 
machine language sub-routes to allow BASIC programmers to add ad- 
vanced manipulations to their programs such as high-speed player- 
missile graphic routines. It also includes the basic part of the 
Character Editor below for only $40. TT#15 Fancy Font is my favorite: 
it includes the Character Editor, various fonts, and tutorials and pro- 
grams to make really fancy displays you won't believe! An extensive 
tutorial is included, as well as a utility allowing you to download any of 
these fonts to a Epson FX80 and print them out! Only $30, and a must 
if you have the FX80. You can get the set of the first six Tricky 
Tutorials in a 3-ring binder for $120 and #7, 8, 9, 10, 11 and 15 for $120. 
A wonderful way to learn to program your Atari at any level. 


For a really good bargain, the Atari User group in Brooklyn, 
B.A.S.I.C., is now publishing their Newsletter on disk for $7.50 a copy 
or $35 a year. Volume 1 #2 is now ready and includes a number of good 
programs, including an updated Jones Terminal, very good tutorials on 
various subjects, editorials, etc., similiar in style to MicroMedia 
magazine. It also includes a really fantastic pinball game made with 
PinBall Construction Set and in run-time format which is worth the 
whole year's subscription price! Write to B.A.S.I.C., c/o P. Fazio, 2724 
E. 23 St, Brooklyn, NY 11235. 


| have just received a very fine and wonderful book by Gary Phillips 
and Jerry White called The Atari User's Encyclopedia (The Book Co., 
11223 S. Hindry Ave., Los Angeles, CA 90045, $20). This a truly com- 
plete book on every phase of Atari computering and more. It includes 
many useful programs and utilities, descriptions of most of the soft- 
ware available for the Atari, definitions and explanations of anything 
connected with our computer (do you know what CRC error means? 
what all the new XL graphic modes are? need a complete memory map 
or list of Atari User Groups? an Assembler move subroutine? — all 
this plus much more in this book). Well written, very interesting and up 
to date. 


HOME APPLICATIONS 


and Games for the Atari Home Computers 
by Timothy P. Banse 

This book is very good for the entire family. It has a lot of variety for 
everyone. For adults there are programs for balancing checkbooks, 
budgeting home expenses, counting calories, blood alcohol testing, 
keeping medical records, planning meals, and a “Crypto-System” for 
saving sensitive information in coded form in order to protect your 
right to privacy. 

For the children there are various games, a number averaging pro- 
gram which calculates batting averages and grades. 

For teenagers there is a typing tutor, a jogger's electronic logbook, 
music composer, and believe it or not, a "Dumb Word Processor" 
which you can use to write letters, school reports or the best-selling 
novel. 

For people interested in utilities, it has a Utility Audit, which shows 
you how to save money by using electricity more efficiently. There is 
also a Heating Loss Cost Analysis which shows you heat-saving 
measures to lower your heating bills. 

This book is mainly for the beginner in BASIC programming. I feel it 
is written very clearly for the person who has trouble understanding 
BASIC programming. As you can see, there are many things to learn 
and do for the entire family. 

— Jackie Heden 


BUMPAS REVIEWS 


ATARI informs me the Synapse applications being distributed by 
Atari will be released March 1. These are Syn-File (database manager), 
Syn-Calc (spreadsheet), and Syn-Trend (including Syn-Graph and Syn- 
Stat). All three will be included in a package called “Syn-Apps”. Atari 
will not be distributing Syn-Text, the new word processor, as it com- 
petes with AtariWriter. All of these applications will be compatible 
with AtariWriter. We'll tell you more when we see review copies. 

Datasoft has announced a dozen or so new products, including a 
“Dallas” game and Letter Wizard, their new word processor. Strategic 
Simulations will release Questron for the Atari this Spring, too. 

Epyx, 1043 Kiel Ct., Sunnyvale, CA 94089, has released a package of 
“arcade classics" (price not included). The disk contains two arcade 
shoot ‘em ups, “Starfire” and "Fire One". 

Starfire looks and plays like the ship-to-ship combat in StarRaiders. 
The player flies through space, lining up wave after wave of enemy tac- 
tical fighters trying to protect “Exidy space freighters” from destruc- 
tion by your “Starcraft”. The screen shows the enemy and various 
missiles coming at you. Below there is a “radar screen” showing the 
approach of nearby enemy. Points gained will automatically refuel you 
at various levels. 

Fire One is a confusing battle between your submarine and an 
enemy sub. The screen is split (when you’re on the surface) into a 
sonar display and a periscope display. Both displays are full of ships 
at start. You must sink enemy ships and the enemy sub before he 
sinks you and yours. You run out of torpedoes from time to time, but 
they automatically reload. When submerged, you have only the sonar 
to guide you. 

SILICON WARRIOR is another program from Epyx on cartridge. It is 
a combination of Tic-Tac-Toe and Mr. Cool. The scenario of the game 
is built around warrior wizards who must “program” 5 chips in a row 
on a 5x5 grid. 

For 1-4 players, the computer may play one or more non-player posi- 
tions. Up to 7 skill levels and 3 speeds of play may also be selected. 
The higher levels add “black holes”, "laser fire”, and “shields” in dif- 
ferent combinations. 

The players jump to empty chips, turning an enemy color to neutral 
or a neutral color to a friendly color. The first to get 5 in a row wins. At 
the higher levels which use lasers and shields, a player may return to 
the “power pyramid" of your color to restore lost power. At the fastest 
speed this game will challenge the most agile arcade player. At any 
speed it will challenge a player to develop good strategy. 

Drol (Broderbund, 17 Paul Dr., San Rafael, CA 94903) is an arcade 
game where you shoot scorpions, monsters, snakes, daggers, swords, 
arrows, balloons, helicopters, witch doctors, and turkeys before you 
can rescue (by bumping your character into them) girls, boys, lizards, 
crocodiles, and mothers. 

The playfield scrolls across approximately 6 screens and the 
character graphics are very well drawn. 

SOLO FLIGHT ($32, Microprose, 10616 Beaver Dam Road, Hunt 
Valley, MD 21030) is the BEST flight simulator I’ve seen for any 
microcomputer. And | include the Microsoft simulator for the IBM PC. 
| have not yet seen Flight Simulator Il from Sublogic, but it will be 
tough to top this one. 

The top half of the screen shows the view out of the cockpit. The 
forward view shows a heads up display of your plane on the wind- 
shield as though you were flying behind yourself and can see the at- 
titude your plane is in. The display also puts a shadow beneath the 
plane when close to the ground. The views to right, left and rear are 
unobstructed (bubble cockpit, | guess). 

The lower half of the screen shows the instrument display, in- 
cluding throttle (10 settings), landing gear and brake lights, flaps (3 
settings), altimeter, airspeed, artificial horizon, pitch, digital and alpha 
directional compass, rate of climb, fuel gauge, temperature warning 
light, two VOR (for instrument flying) indicators, and a glide path in- 
dicator. The instruments also show ceiling and direction and force of 
wind. You can see you have pretty complete instrumentation. They are 
easy to read and are not crowded. 

You may fly on any one of three maps: Kansas (flat, easiest for 
beginners); Oregon/Washington (the Cascades offer some elevation 
problems); and Colorado (those little valley airports are a challenge for 
the expert). You may select practice flying, or play the mail pilot game 
where you must deliver mail bags to up to six other cities. You may 
select one of four levels of pilot skill from Student to Command Pilot. 
Choice of weather includes Clear, Windy, or IFR (for instrument flying). 
Landing practice places the aircraft on short final approach. 

The program may be paused at any time, and emergency equipment 
failures may be created for practice purposes. You can fly into the 
clouds by gaining altitude above the ceiling level. 
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At the beginning of a trip the screen displays the map of the state, 
with 7 airfields, topographical indications, cities and VOR stations. 
When the trip is over the map reappears with your route (sometimes 
quite convoluted if you've had trouble lining up a final approach) 
drawn out on the screen. Your speed is indicated on the map, too. If 
the dots are spaced close together, your speed was relatively slow. If 
they are spaced farther apart, your speed was better. The program 
scores your performance with a point system. 

| think there are some skills here which one might want to master 
before getting into a plane to learn to fly. I’ve already destroyed several 
hundred thousand dollars worth of aircraft (and no telling how many 
lives!) trying to land. But it's a real feeling of accomplishment when 
you successfully land and deliver the mail. If you enjoy aircraft 
simulators, | don't believe you can find a better one than this for your 
computer. 

The Astra 1620 disk drives are now being delivered. | tried two of 
them myself. The first one only worked for about a half an hour before 
it refused to read any disk. | turned it off for awhile, and then l found | 
could read disks again for another half hour before it stopped again. 
Disks removed from the drive were noticeably warm. | think the heat 
caused the problem. 

The second one | tried worked fine for the two days | had it. But 
disks removed from this one seemed to me just as warm as before. I 
am used to my disks seeming as cool when I remove them from a drive 
as when | inserted them. The warmed-up disks alarm me too much to 
be comfortable with that drive. So l returned it, too. 

The Astra folks are very nice. They are responsive to users with 
questions or who may need help. They chose to put the power supply 
into the disk drive case. Most disk drives for the Atari seem to have ex- 
ternal power supplies. But there are many disk drives with internal 
power supplies. The heat build up in the Astra might be improved with 
a better design for dissipating the heat. Mounting the drives vertically, 
in a case with more ventilation, might help. 

The $595 price for 2 double-density disk drives is excellent. DOS XL 
is included, with excellent documentation. The Indus drive also pro- 
vides DOS XL, but the documentation Insus provides is not adequate, 
in my view, to make full use of that DOS. And the Rana and Trak drives 
don't come with any DOS at all, although Trak does provide a program 
which gives one software control over density. Trak and Indus provide 
dip switches giving a user hardware control of default densities. I’ve 
heard the Astra being called a “toaster” already. And the question 
about heat in this drive is the ONLY thing which makes me hesitate to 
recommend this drive. 


BASIC XL 


A review by Graham Smith 

There are several versions of Basic for the Atari now on the market, 
and some of them offer improvements at the expense of not always 
being compatible with existing Atari Basic software. Basic XL is an ex- 
ception. Since it uses the same tokens as Atari Basic most of my pro- 
grams — with the exception of Basic Commander — ran without dif- 
ficulty v 

Basic XL comes on a 24k cartridge. But because of a neat bit of 
"bank switching" it does not use up any more memory than Atari 
Basic. It is, however, a MUCH more extended basic language. Further- 
more, it is easier to use and much more complete than Atari Basic. 

Special features include auto-numbering, renumbering, mass- 
delete, trace, Lvar (List Variables), as well as the ability to access the 
disk menu and manipulate programs without losing the program in 
memory. l find | seldom use the DOS menu anymore. Needless to say, 
Basic XL handles strings with ease and most variables are 
automatically dimensioned to 40 characters unless the user specifies 
otherwise. 

One of the features of this program is a "fast" command which 
precompiles the *GOSUBs" and “GOTOs” by address rather than line 
numbers. This considerably speeds up programs with many 
subroutines. My own comparison test shows Basic XL usually runs 
faster than Atari Basic, however, this varies with the type of task and 
length of program. 

The documentation in this package is superb. The first section is a 
176 page Basic tutorial (one of the authors is Bill Wilkinson). The se- 
cond part of the manual is a straight forward description of all the 
commands — old and new. It is all very thorough and and well 
presented. 

| am enthusiastic about this package. | never cared much for Basic 
programing before, but this powerful language has won me over. 

It is impossible to mention in a short review all the advantages, but 
in addition to improving and simplifying Atari Basic there are no less 
than 46 new commands. 

This is not just another Basic. | wouldn't be without it. 

— Graham Smith 
Ace Eugene 


—Jim Bumpas 


GETTING INTO ACTION! 


(A “Non-expert” Looks at the ACTION! language) 
by Ruth Ellsworth 

Every programmer dreams of finding a computer language which is 
fast, powerful, and user-friendly. In my opinion, ACTION! comes as 
close to filling the bill as any programming language ! have tried. 

ACTION! is attractively packaged. From the yellow looseleaf binder 
to the orange cartridge, the fact that everything connected with this 
system is well done is obvious. The documentation is excellent, but 
beginners should probably wait for some tutorials and at least the Pro- 
grammer's Disk which is now available. For the intrepid novice who 
has some experience in BASIC or LOGO, a careful reading and work- 
ing through the examples will allow one to begin using ACTION! 
without the Programmer's Disk which | am anxiously awaiting. 

While the documentation is not indexed, it is divided into parts 
which are then divided into topics. There are five main parts, not coun- 
ting the introduction and appendices: the Editor, the Monitor, the 
Language, the Compiler, and the Library. If one has some idea as to 
which part pertains to his problem, it is not difficult to find what one is 
looking for. ) 

The ACTION! Editor is without a doubt the most powerful and 
easiest to use editor l have found. It contains all the commands which 
make the ATARI editor so superior plus a number of additional com- 
mands which allow the user to move easily through programming text. 
The unique commands are not only easy to use, but easy to remember. 
For example, control-shift-R allows one to Read a file from a peripheral 
device into the Editor. 

Without an autorun system, ACTION! boots directly into the Editor. 
The Monitor is accessed by command from the Editor. Programs can 
be run directly from a peripherial device to the Monitor, or compiled 
from the Editor then run. Programs are run and immediate mode com- 
mands are executed in the Monitor. 

The ACTION! Language section of the documentation is especially 
well done. It is loaded with examples and explanations, making it the 
finest language manual | have seen. The wording is clear and surpris- 
ingly nontechnical. Some of the explanations of basics, such as Loops 
and Modules, are more easily understood than similar explanations l 
have read in books written for beginners. 

The Compiler is explained, and the Library functions allowing the 
use of many routines the user does not have to define are contained in 
their respective parts of the documentation. The Library Part of the 
manual is its only weakness. A few examples would have helped 
` greatly. One hopes the Programmer's Disk will make up for this lack. 
However, even without examples, it is possible to use the library 
routines if one persists. 

| have chosen to use a joystick sketch program for a sample com- 
parison of ACTION!, BASIC, PILOT, and LOGO. FORTH is not included 
because my documentation is presently loaned and | am somewhat 
rusty in its use. | will take the liberty of making some comment as to 
the difference between ACTION! and FORTH without the specifics of 
a program example. | realize, also, it is possible to make a joystick 
etch in PILOT with many fewer lines a la Jim Carr's routine. | have tried 
to make these programs as similar as possible in logic for the pur- 
poses of comparison rather than program length. 

The first impression one has when using ACTION! is speed. Com- 
pared to the other languages available for the ATARI, ACTION! is 
faster than FORTH, much faster than BASIC or PILOT (even in its 
speedy graphics mode), and very much faster than LOGO. 

ACTION! is basically a version of PASCAL. It is modular, built in 
pieces called Procedures put together to make a program. The major 
advantage | see in it over FORTH is the syntax is much easier to use 
and understand (I was not able to test the greater speed of ACTION!) 
FORTH does have an advantage of being transportable to other 
machines which should not be overlooked, however. Because it is 
modular, and the form in which procedures are written are similar, one 
acquainted with LOGO will find ACTION! surprisingly friendly. PILOT 
and BASIC programmers may find structure strange, a book liket- 
PASCAL FOR BASIC PROGRAMMERStbv Seiter and Weiss might be 
helpful to those intimidated by the differences. The ACTION! manual 
probably will be sufficient for more experienced BASIC programmers. 

The programs which follow are all basically the same. Except for 
LOGO, the location of the X and Y co-ordinates are given as variables 
at the beginning of the program (ATARI LOGO seems to have some 
reservations about accepting :X :Y in any form as SETPOS or POS in- 
puts, | have used the setheading command, trying to keep the program 
structure as similar as possible) The graphics mode is set either 
before or after the variables, if necessary. Turtle graphics is its own 
mode and is, therefore, not called in LOGO or PILOT. The program 
loop comes next. It becomes infinite in BASIC through the use of 
GOTO, in PILOT by jumping back to the main module (*STICK), in 
LOGO throug the procedure calling itself (JOYDRAW), and in ACTION! 
by the use of the empty DO — OD loop. 


ACTION! is so fast that one will note the difference in the delay 
loop between BASIC and ACTION!. One will also note the similarity, 
and yet subtle differences in the commands between ACTION! and 
BASIC (color, graphics, and stick commands for example). 

The thing about writing graphics routines in ACTION! which seem a 
little unusual to me is that the X and Y co-ordinates had to appear as 
variables. One does not Plot(number,number) in ACTION! procedures 
as far as | can tell. Other than that small problem which was easily 
overcome, | found ACTION! to be a programmer's dream. | do not ex- 
pect to reach the expertise of Stan Ockers et al, but | do expect to do 
many things with ACTION! It is one programming language which, in 
my opinion, will probably be preferred by ATARI users everywhere. 


TIDBITS 


80 Columns for Tinytext 2.0 

This article is intended for those of you with Video 80 from the April 
1983 Compute!. For those not aware of this incredible program, it 
gives one an 80 column display through software. To use it, it must 
first be loaded from DOS using option L with Atari DOS (LOA from 
OS/A +). Then you can run a modified version of Tinytext 2.0 and the 
display option will show you your text in 80 columns. Listing 1 con- 
tains the changes to make to Tinytext in order to make it work with 
Video-80. In addition to adding those lines, you should delete lines 
590, 726, 728, 840, and 890. 

Some comments on using Video-80 with Tinytext: First, since 
Video-80 uses a graphics 8 display, it eats a lot of memory we could 
use to store text. In fact, don't even think of using it with Tinytext 
unless you have at least 40K memory. As well, the characters Video-80 
produces are hard to read on many monitors, but | think the advantage 
of being able to see what your page will look like more than makes up 
for this inconvenience. 

If you have OS/A+ 2.10, you could set up a STARTUP.EXC file 
which will run Video 80 and then Tinytext automatically. To do this we 
will need the following: an AUTORUN.SYS file which runs a BASIC 
program automatically, the Video-80 file (with the name 
VIDEO80.OBJ), and a STARTUP.EXC file which will instruct OS/A + 
what to do when we power up. Listing 2 contains a program to make 
such a STARTUP.EXC file, and Listing 3 will produce an 
AUTORUN.SYS file to automatically load and run a BASIC program on 
disk with the name 'HELLO'. Okay, to start off, initialize and write DOS 
to a blank disk. Now type in Listing 2 and RUN it. Now we need to 
think about what we want OS/A 4- to do when we power up. Well, we 
want it to LOA VIDEO80.OBJ, and then run Tinytext. To get it to run 
Tinytext, we will tell it to LOA AUTORUN.SYS and then go to the CAR- 
tridge. Therefore, our STARTUP.EXC program looks like this: 

LOA VIDEO80.OBJ 

LOA AUTORUN.SYS 

CAR 

Use Listing 2 to create such a STARTUP.EXC file. 

Now we need an AUTORUN.SYS file. You may use Listing 3 to 
create one if you don't already have one in your library. Now put your 
Video 80 file on the disk. Finally, load your copy of Tinytext 2.0 and 
make the corrections, and then save it on the disk with whatever name 
your AUTORUN.SYS file wants to run (if you used listing 3, save it as 
"D:HELLO") On your disk you should have the following files: 
DOS.SYS, AUTORUN.SYS, STARTUP.EXC, VIDEO80.OBJ, and Tinytext 
(SAVEd as HELLO or whatever). 

Y ou should now have a working copy of what l call Super Tinytext. 
Reboot and enjoy your 80 columns. 

The principle used in the modification of Tinytext deserves some 
discussion. By changing the device we OPEN the file to, we can com- 
pletely change the operation of the program. | have used this several 
times when debugging programs which send output to the printer via a 
PRINT #1. While debugging, | simply change the line near the beginn- 
ing of the program from OPEN #1,8,0,“P”to OPEN #1,8,0,“E”or OPEN 
41,8,0, V". In this way | can see what the output will look like without 
wasting reams of paper. Then, when everything looks OK, | just 
change the "E" or “V” back to a “P”, thereby redirecting the output to 
the printer. In this modified Tinytext, we do exactly the same thing. If 
the user wants to display the text, we open the IOCB to Video 80. If 
printing is chosen, we open it to the printer. After opening it, exactly 
the same routines are executed to print out the text. 

— Dale Lutz 
CANADA 
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18 pr JOYSTICK COUNT 378 GR: TURNTOL180; DRANG 788 GR: TURNTO4S ; DRAWS 
28 R:BY RUTH ELLSWORTH 388 GR: TURNIO; DRANL 798 GR:TURNTO228; GOS 
30 R:ACE NEWSLETTER 3662 VINEMAPLE 398 GR: TURNJ0;DRANS 888 ER: TURHTO38;DRAHS 
35 R: EUGENE, OR 97485 $12 YEAR 468 GR: TURNTOL88; GOL 818 E: 
48 R:FEB 1984 418 GR:TURNSG; DRANI 828 *HUMS 
58 J:ĦBEGIN 428 &R:TURNTO188;G04 858 GR: TURNTOIE; DRAWS 
66 XBÜAT 438 GR:TURNS8; DRANI 848 GR: TURN180; GOS 
78 GR:PEMRED; TURNTO98 ; DRAKLE; TURNTO45; 448 GR:TURN188;DRAHG 858 GR:TURN-98; DRAWS 
DRAHA ; THRNTO278 ; DRAK16; THRNTO135; DRAMA 458 E: 868 GR: TURNTOJ8;DRANI 
;TURNTOI15;FILLA 468 XNUMZ 878 GR:TURNTOE; DRAN? 
88 GR: TURNTO98; GO6 478 GR: TURNTO4S; DRAWL 886 GR:TURNTO188;G02 
38 C:8B785-174*8 488 GR:TURNAS; DRAWS 838 GR; TURNTO98; DRAN: 
188 C:eB718-8t8 498 GR: TURĦ98; DRANL 388 &R:THRNTOLSO;BRANT 
118 GR:PENVELLON; TURNTOO; ORANLI; TURNTO 588 GR:TURN45;DRAWS 918 GR: TURNTOG; G01 
135; DRAMLL; THRNTO278 ; DRAW? ; THRETOG; FIL 518 GR: TURNTO98;DRANI 328 GR:TURNTO30;DRANI 
L6 | 528 GR:TURN-45;DRAHS 336 GR:TURNTOS; DRANL 
128 E: 538 GR:TURNTO180;G04 348 CR:TURNI88;601 
138 XHOHMANY 548 GR: TURNTO278; DRAWS 358 GR: TURNTOZ78;605 
148 VNEN: 558 E: 568 GR:TURHI180;DRANI 
158 GR:QUIT 568 XNUMI | 978 GR: TURNTO188;DRAHI 
168 C:8811731-8 578 GR:TURNTO98; DRA 388 GR:TURNTO38;DRANI 
178 C:8B1374-2 588 GR: TURN135; DRAWS 338 E: 
188 MRITE:S, 598 GR:TURN45;DRANMI 1886 XHGATI 
198 HRITE:5, 688 GR: TURNTO45; DRANZ 1818 GR:GOTG-S8, 38 
288 WRITE:5, 618 GR: TURNTOLBB;DRANZ 1828 U:XB8AT 
218 WRITE:5, MTIEED 628 GR: TURNTOJ8; DRANI 1838 J:XĦATCHI 
228 PA:188 638 GR: TURNTO1LB8;DRAHŻ 1848 E: 
218 CLOSE:5 648 GR: TURNTO45;DRAHI 1858 XBOATZ 
248 GR:CLEAR 658 GR: TURNI88;DRANI 1868 GR:G0TO-50,26 
258 C:88710-8*0 668 GR:TURNTOZ78;DRAMA 1878 i:XBOAT 
268 #START 678 GR: TURNTO@;DRAWL 1888 6R:GOTGZ6, SO 
278 C:887642255 688 GR:TURNTO-98; 4) Abit 1898 U:XB0AT 
288 C:HAZANS 638 E: 1188 J:XĦATCHZ 
298 JAE) : KBOATI 788 *NUMA 1118 E: 
388 J(Hà-1) :XBOATZ 718 GR:TURNTO188;DRAMWG 1128 XBOATS 
318 J(HA-2):XBOAT3 728 GR:TURN98; DRAMI 1138 GR:G0T0-50, 38 
128 JATI) :KBOAT4 738 &R:TURNSO; DRANG 1148 U:KB0AT 
338 JIĦA-3) :XBOAT4 748 GR: TURNTO-125; DRAWS 1158 GR:G0TO-7,38 
348 JIĦA-4) :*804T5 758 GR:TURNTO188;DRAMI 1168 U:*BOAT 
158 E: 768 GR: TURN-90;DRANI 1178 GR:G0T038,38 
368 #NUMi 778 GR: TURNTO@; DRAMI 1188 UU: X68AT 





Listing in BASIC and Pilot, as well as 
Screen Duaps by PRINTWIZ by Allen 
Macroware 


Ruth Ellsworth: JOYSTICKS COUNT 
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1138 
1208 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1238 
1388 
1318 
1328 
1318 
1348 
1358 
1368 
1378 
1188 
1398 
1488 
1418 
1420 
1418 
1448 
1458 
1468 
1478 
1488 
1438 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1818 
1648 
1658 
1668 
1676 
1688 
1638 
1708 
1718 
1728 
1738 
1748 
1758 
1768 


J:3XMATCH3 

E: 

XBOAT4 
GR:GOTO-58, 18 

lj: XBÜOAT 
6R:60T0-7,38 
U:#B0AT 
GR:GOTOZB, 18 
Ui:XBGAT 
&R:60T0-32,7 

U: BOAT 

J:XMATCHA4 

E: 

RBOATS 
GR:60T0-58, 18 
U:XBÜAT 

GR: G60T0-7,38 

I: XBOAT 

GR: GOTOIG, JOU 

Ui :XBOAT 
&R:60T0-32,7 

Li: BOAT 

6R:60T09,7 

U: XBOAT 

J:XMATCHS 

E: 

XMATCH1 

PA: 8 
JCEBZELZILI : RIGHT 
Jt88764 021) : #MATCHI 
E: 

#MATCH2 

PA: 318 

d (88764238) : *RIGHT 
JCEBZE4O 382 : XMATCHZ 
E: 

XMATCH3 

PA:38 

J(8B764-26) :ĦRIGHT 
J(8B764 (225) :ĦĦATCHI 
E: 

#MATCH4 

PA: 38 
Jt8B764-24) : RIGHT 
J(8B764 (24) :ĦĦATCHA 
E: 

XMATCHS 

PA: SO 
J(88764-29) : RIGHT 
J(8B754 (0 29) : MATCHS 
E: 

#RIGHT 

U CHA-8) : KRONE 
U(C#HA=1) : KRTWO 

U (HAZZ2) : XRTHREE 
U(CHAZI) : XRFOUR 
U(HA-4) : #RFIVE 
Ph:188 


2358 
2360 
2378 
2388 
2398 
24880 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2430 
2588 
2518 
2520 
2538 
2548 
2558 
2568 
2578 
2588 
2598 
2688 
2618 
2628 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2718 
2748 
2758 
2768 
2778 
2788 
2738 
2888 
2818 
2828 
2838 
2848 
2850 
2858 
2878 
2888 
2838 
2988 
2918 
2928 


PA: 188 
P05:2,1 
WRITE:5,H 
PA: 188 
POS:2,5 
WRITE:5,N 
Pa: 168 
P0S:2,7 
WRITE:5,0 
PA: 180 
POS:2,3 
WRITE:5,8B 
PA:288 
WRITE:5,% 
WRITE:5, YOUR TURN TO 
WRITE:5, MAKE STARS 
WRITE:5, PUSH THE TRIGGER 
PA: 188 

WRITE:5,4 

C:#C=Z8 

#TRIGGER ` 

JOZTBZBN :KTRIGGER 
JIXTS-1) : XCOUNT 

E: 

XCOUNT 

C:HHE-HUT 1 

JULI) : ONE 

JCHCZ23 "STM 

JO 32 : THREE 
JGIC-4) : FOUR 
J(HCz5) : XFIUE 

E: 

ĦONE 

P05:5,3 

HRITE:S,f 

P05:5,5 

WRITE: 5,* 

Pë: 28 

J:XTRIGGER 

E: 

SIM 

P05:5,3 

WRITE:5, — 

POS:7,3 

HRITE:5,H 

P0S:7,5 

WRITE:5,4 

PA:28 

J:#TRIGGER 

E: 

XTHREE 

PO5:7,3 

WRITE:5, — 

P05:9,1 

WRITE:S,H 

P05:9,5 

WRITE:5,X 

PA:28 


#£ # 


# * # 


kx xx 


HEHEHE XH 


1778 
1788 
1738 
1888 
1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1858 
1988 
1918 
1328 
1938 
1548 
1958 
1988 
1978 
1388 
1998 
2888 
2818 
2020 
2838 
2848 
2858 
2868 
2078 
288^ 
858 
2188 
2118 
2128 
2118 
2148 
2158 
2168 
2178 
2188 
2198 
2288 
2218 
2228 
2230 
2240 
2258 
2268 
2270 
2288 
2298 
2388 
2318 
2328 
2338 
2348 


UNEN: 
GR: QUIT 
C:8B1371-8 

:8B1374-2 
WRITE:5, 
WRITE:S, 122222221 
WRITE:S, 1 1 
WRITE:S, 01* E 10 
WRITE:5, 1 8 1 
WRITE:S, i \—f 1 
WRITE:5, ee 
WRITE:5, 
WRITE:5, 
PA: 188 
WRITE:5,5 
J:#BOATMOD 
E: 
#RONE 
&6R:60T0-7,7 
(RS 
E: 
ĦRIHO 
&R:60T0-7,7 
U : XNUMZ 
E: 
#RTHREE 
6R:60T0-7,7 
U: MUMS 
E: 
XRFOUR 
GR: JTO0-7,-16 
H: ANUM — 
E: 
XRFIUE 
GR: GOTO-7,-16 
U: X#NUMS 
E: 
XBEGIN 
C:8B11731-8 
C:8B1374-2 
XTITLE 
NRITE:5, 
WRITE:5, 
WRITE:S, 
WRITE:5, 


WRITE:5, At TATUS NC ies 


PA: 288 

C: SNAĦE-DAN 
WRITE:5,8 
POS:2,2 
WRITE:5, 
P05:1,5 
WRITE:S,LET'S COUNT STARS 
MHRITE:S, 

PA: 288 

WRITE:5,4 

P05:2,1 

WRITE:S,F e 


HELLO, SHAME 2 


2918 
2348 
2958 
2968 
2978 
2988 
2998 
1888 
1818 
1828 
1818 
3848 
3858 
1868 
3878 
3638 
3898 
3188 
3118 
3128 
3118 
3148 
3158 
3168 
3178 
1188 
3198 
1288 
3218 
1228 
1238 
3248 
1258 
1268 
3278 
3288 
3298 
3308 
3318 
1128 
3318 
3346 
3358 
3368 
3370 
1388 
3398 
1488 
3418 
1428 
34308 
3448 
3458 
3468 
3478 
1488 
3498 
1588 


J:iXTRIGGER 

E: 

#FOUR 

P05:9,1 

WRITE:5, — 

P0S:11,3 

WRITE: 5,3 

P05:11,5 

WRITE: S,* 

PA:28 

J:iXTRISGER 

E: 

#FIVE 

P65:11,7 

WRITE:5, — 

POS:17,3 

MRITE:5,B 

P05:11,5 

WRITE:5,4t 

PA:20 

J:XBOATMOD 

E: 

XBOATMOD 

WRITE:5,K 

WRITE:5, NOW, DAN, 
WRITE:5, LET'S COUNT FIVE 
WRITE:5, 
WRITE:5, 
MRITE:5, 
WRITE:5, 
PA:68 
CLOSE:5 
GR: CLEAR 
C:HCZ8 
XBTRIGGER 
JCOLT8-8) :XBTRIGGER 
JGOT8-z1) : XBCOUNT 
E: 

XBCOUNT 
C:tC=ZHC+H1 

U CHC-1) : BONE 

U (HC-2) : XBTWO 

U (ALI) : XBTHREE 
U (tiL-4) : XBFOUR 

U (46-5) : XBFIUE 
PA:28 
J:XBTRIGGER 

E: 

ĦBONE 

GR; 6010-58, 38 

L: BOAT 
GR:GOTO-47, 25 
U:XNUMI 

E: 

Gu 

GR: GOTCIE, 38 

ti: XB0AT 
GR:GOTOZJ1,25 ` 


BOATS 


PUSH THE TRIGGER 


3518 
3528 
i918 
3548 
3558 
i568 
3578 
3588 
3538 
i688 
3618 
3628 
3636 
3648 
3658 
i668 
3678 
3688 
3638 
i788 
3718 
3728 


U :XNUMZ 

E: 

#BTHREE 
GR:GOTO-7,7 
ti: XBOAT 
GR:GOTO-7,2 
U: XNUMI 

E: 

#BFOUR 
6R;607T0-58,-28 
Li: BOAT 
GR:GOTO-47,-25 
U:XNUM 

E: 

XBFIVE 
6R:60T038, -28 
WU: *BÜAT 
GR:GOTOZJE, -25 
U: XNUMS 
PA:188 

J: EHONMANY 

E: 


Greg Menke: FUNCTION 
KEY EDITOR 


i REM ZDHELSOE a A EGIT B KA A 
2 REM A TGT 
i REM SAA L-UE PAR E: 
4 VEH BE B ee 
18 GRAPHICS 8:SETCOLOR 2,8,8 

ii ? “FUNCTION KEY EDITOR":? ," 
reg Menke,":? ," 12/12/83" 
LSZ 22 

28 DIM AS (16), BS (16) , C$ C16) , F$ 280) , KSC 
182,D$(14) 

IB 7 :? "Do you want a ";CHRS(193) ;"ut 
orun file or a":? "normal ":CHR$ (194); 
“inary lead file ";:INPUT X$ 

48 IF LEN(AS)?1 THEN 38 

58 IF KSZ"A" THEN F$-"D:AHTORUN. SYS" 
68 IF KSZ"B" THEN ? :? "Enter filename 
vanse SINPUT FS 

78 ? :? "Do you want the default messa 
ges. (Y/N) "::INPUT HS 

88 TRAP 98:XIO0 36,H1,8,8,FS 

98 OPEN #11,8,8,F$:RESTORE 1888 

186 IF Mën THEN 588 

185 A$C1,1)=CHRS(156) :BS (1,1) -CHRS (156 
1:C$(1,1)=CHR$ (156) : TRAP 48888 

118 ? :? "Enter START message....":INP 
UT D$:A$(2)=D3 

128 ? :7 "Enter SELECT message....":IN 
PUT D$:8$(2)=D$3 

138 ? :? "Enter OPTION message....":IN 
PUT D$:C$(2)-D$ 

148 FOR G-LEN(CAS) +i TO 16:A5(6,6)z7M: 
WERT G:FOR G-LEN(BS)*1 TO 16:B5(6,6)=" 


by 6 


7 


v€'*:NEXT b 

158 FOR G-LEN(CS241 TO 16:C9(G,G)z" 9; 
NEXT 6 

168 READ A:IF Aa=-2 THEN 188 

178 PUT #1,A:GOTO 168 

186 FOR Goi TO LEN(CAS) :PUT #1,A5C(CAS1(6 
II :WEXT G:FOR G-1 TO LEN(BS):PUT fi. 
ASC(B$S(6,6)):NEKT 6 

198 FOR Gzi TO LEN(C$S):PUIT #1,ASC (CS CG 
,6)) : NEXT 6 


288 GOTO 388 

491 REM 

492 REM 

493 REM 

S88 READ A:IF Az-1 THEN 386 

518 IF fiz-2 THEN 588 

528 PUT Hi, A: GOTO 588 

836 REM 

837 REM 

838 REM 

388 ? CHR$(C125);"File complete...." 
985 PUT 141,224:PUT 111,2:PUT #1,225:PUT 


81,2:PUT H1,8:PUT H1,6:CLOSE Ri 
918 KIO 35,#1,8,8,F$ 

928 ? :? "Press ;":? " 

0 reboot and try it!" 

938 ? " START to end." 
948 IF PEEK(52279)-5 THEN POKE 53279,7 
:A-USRC58487) 

358 IF PEEK(52279)-6 THEN ? :CLR :ENB 
368 GOTO 348 

1888 DATA 255,255,8,6,215,6,165,12,141 
,167,6,165,13,141,163 

1818 DATA 6,169,22,133,12,163,6,133,11 
,32,28,65,36,32,28 

1828 DATA 6,188,167,6,162,6,168,45,163 
,6,32,92,228,169,8 

1838 DATA 133,283, 96,76,95,228,165, 283 
,281,1,248,292,171,31,288 

1848 DATA 281,7,248,22,174,251,2,224,1 
;288,15,281,6,248,25 

1858 DATA 281,5,248,24,281,3,248,23,76 
,47,6,173, 31,288,281 

1868 DATA 7,288,211,169,80,111,203,76,4 
2,5,76,183,6,76,114 

1878 DATA 6,76,125,6,169,6,133,287,169 
,163,133,286,76,111,6 

1888 DATA 169,6,131,287,169,185,133,20 
6,76,133,6,163,6,133, 287 

1898 DATA 169,281,133,206,162,1,122,28 
1,168,8,177,286,201,8,248 

1188 DATA 19,12,164,246,165,206,201,25 
5,248,5,230,206,76,117,6 

1118 DATA 238,287,76,154,6,76,42,6,8,8 
172:156,76,793,65,68 

1128 DATA 32,34,58,8,0,8,8,8,8,0,0,156 
,83,65, 86 

1138 DATA 69,32,34,68,8,8,8,8,8,8,85,8, 
156,82,85 

1148 DATA 78,32,34,68,8,8,8,6,6,8,8,8, 
8,-i 


SELECT t 


Dale Luiz: A.B.IS. 


i REM Gee eye a ETE 
2 REM Sfp Ca eae 












4 REM Sii NIF 
9 REM J3HOOOOHBHOHOQRBHOOOOGBOHÉHHE 


* E 
x A.B.I.5. Lë 
6 REM X x 
* by Dale Lutz EI 
* E: 


7 REM JJHBEODGOHOHBBHOHEHOOHHOBOHOOO 

18 GOSUB 188 

28 IF PEEK(7542 O 255 THEN GET #1,A:IF 

AO125 THEN PUT 2,4 

25 IF PEEK(53279)-8 OR PEEK(53279)-1 T 

HER 308 

i8 GOTO 28 

188 GRAPHICS 8:0PEM #1,4,8, '"K':INCZS1L 

INE-188 
128 DIM FI$(191,T$(40) 

128 ? CHR$(125):? :? " Save to Misk or 
[Jassette?'::GET #1,A:? CHR$(A+128):IF 
44058 AND À(Ż67 THEN 125 

126 REM D and € in Disk and Cassette i 

n Inverse 

i38 IF A-68 THEM ? :? " Mat name do y 

ou want it saved by":INPUT TS:FIS(Z)=ZT 

$:FI$(1,2)="D:":6G0T0 148 

135 ? :7 " Please position the cassett 

e,":7 "press and then GATT 
Tat ée TM 

136 REM PLAY/REC and RETURN in Inverse 

148 OPEN 83,8,8,FIS: OPEN #2,12,8,"E" 
145 ? H3J;LIME;" GRAPHICS 8:POKE 752,1; 
C6-6:POKE 82,2:POKE 83,39:60T0 ";LINE* 
INCK8:LINE-LINE*INC:HAIT-LIMNE 

158 ? HI;LINE;" POKE 764,255" :LINEZLIN 

EtINC 

155 ? HI;LINE;" IF PEEK(7642 (0255 THEN 
"SLINE+INC#4:LINEZLINE+INC 

169 ? HI;LINE;"POS. YP,MP:A-AT*1:IF oi 
THEN ?":CHR$ (34) : CHRS (168) ; CHR$ C342 rn 
;"ILINECLINE*tINC 
i65 ? HI;LINE;"IF A)8 THEN ?";:CHR$ (34) 
st UPCHRSUQI42;"7;:IF 8018 THEM AZO":LIN 
E-LINE*INC 
178 ? HI;LINE;"GOTO "JWAIT+INC:LINE=LI 
NE*INC 
175 ? HILINE; A= PEEK(764):IF op OR 
A-ii4 OR &-52 THEN GOTO LAST'":LINE-LI 
NKE* INC 
188 ? H3;LINE;"GOTO MER":LIMEZLINE+INC 
s THIS-LINE 
185 POKE 53774,112:POKE 16,112 
198 RETURN 

.199 REM ROUTINE TO WRITE A PROGRAM TO 


SAVE PRESENT SCREEN AND DO à NEW ONE 
288 NP-PEEK(84):YP-PEEK(85) : POKE 559,8 
;POKE 752,1:7 :POKE 752,8 

285 FR-FR*1:? HS;LIME;'" REM iBOt FRAME 
"PER; AME LIME-LINETINC:LAST-THIS:TH 
IS-LINE:POSITION 2,8 

218 7 Hi;LIME;" 7 CHRS(1253;":FOR Y-1 
TO 23:LINE-LINE*INC 

228 ? H3;LIME; 

238 P-8:FO0R X-2 TO 39:GET 35,8:T79 (0-1) 
-CHR$(A):IF 632 THEN P-1 

232 NEXT X 

235 IF P THEN ? #I;"'?8C6;"; CHR$UI42 ; T$ 
;CHRS C34) ;";":60T70 246 

237 ? W3i;"7H06";;IF Y-24 THEN ? II if 


$ 


238 ? MI 

248 MENT Y 

258 LINE-LINE*tINC:NEX-LINE*INC 

268 ? HI;,LIME;" NEN-'";NEM;":LAST-":;L45 
T;"iHPZ"PNP;UIYPZUIYPIU:IBOTO “;WATT:LI 
REZLINE+INC 

262 ? MI;LINE;"?CHR$S (125) : POKE 764,255 
:POKE 752,8:REM THIS IS THE LAST LINE" 
265 POKE 764,255:POKE 559,34:POKE 712, 
12 

278 
275 
288 
388 
070 
i85 
ANT 


IF PEEK(764)=255 THEM 278 

POKE 764,255:POKE 712,8 

POSITION 2,2:? CHR$(125) ; : RETURN 
IF PEEK(53275) OB THEN GOSUB 200:6 
28 

GOSUB 288:? :? "ARE YOU SURE YOU H 
TO QUIT THIS ":? “SESSION (V/N)U;: 
SET HI. 

318 IF NOT (oan OR Àziżi OR à-249 OR 
4-217) THEN ? CHR$(1251;:60T0 28 

320 GRAPHICS 8:POSITION 2,6:? "ENTER " 
;CHR$ (34) ;FIS; CHR$ (342 :? :? :? :? "pak 

E 842,12:?CHR$ C125)" 

338 POSITION 2,6:POKE 842,13:MEN 


Dale Luiz: TIDBITS 3 


@ REM BLISTING AT dan Dale Lutz ET RE 

i4 DIM 5$5(45),I$(1283) ,AS (1283 : SIZ-FRE( 

82-7888:DIM TS(SIZ):FOR Izi TO 45:READ 
&:5$ CGOOZCHRS CA) NENT I 

115 MODE-I:LINT-1:PG-8:DIM OPS Ci? 

534 IF OP-3 THEN ? "PRINT'":0P$-"p" 

538 IF OP=5 THEN ? “DISPLAY": OPS=""U" 

698 OPEM 11,8,8,0P$ 

785 0P-3 

718 LINE-8:FL-8 

725 IF B-19 AND LINE(-I(PS-FF) THEM ? H 
;" "ILINE-LINE*1 

727 IF Bzi6 THEM FOR Izi TO PS-LINE:? 

B1;" ":NMENT I:LINE-B:IF PG THEN GOSUB 
888 

838 IF OP-3 THEN ? #1;5P$(C1,5P);A$:IF 





8 


LINT-1 THEN FOR Izi TO LINT-1:7 HL:NE| 


TI 

855 IF FL AND üP$-"U" THEM GOSUB 980: 
LOSE #1:GRAPHICS 8:0P-5:60TO0 508 

857 IF FL THEN CLOSE #1:60T0 588 

878 FOR Izi TO FF:IF OP-3 THEM 7 91 
875 NEXT I:IF NOT (PG) THEN LINE-1:RI 
TURN 

888 PAGE-PAGE*1:SP-LL- CLEN CTS) INT CCLI 
& (PAGE) ) *6) *LM 

885 ? M1;5P$(1,5P) ;1$; "Page ";PAGE:? $ 
1:1? Wi:60T0 895 

968 CLOSE #I:POKE 82,0:POKE 752,8:CL0! 
E %4:60T0 588 


8 REM (BRST ae eee eee ee 
S REM PROGRAM TO MAKE A STARTUP.EXC 
6 REM FILE 

18 OPEN 81,8,0,"D:STARTUP EXC" : DIM AS! 
48) 

28 7 "ENTER NEXT LINE TO EXIT) 
":INPUT aS 

i8 IF LENtA$)-8 THEN 68 

48 7 #1;AS 

58 GOTO 28 

68 CLOSE w2:END 

8 REH [SEXECTHESEEEIBEEICEUTDNETDESE 
5 REM THIS PROGRAM MAKES AN AUTORUN,5' 
5. 

6 REM FILE WHICH MILL AUTOMATICALLY 

7 REM LOAD AND RUN à BASIC SAVED 

8 REM PROGRAM WITH THE FILENAME "HELLI 
9a 

18 OPEN 1,8,8, ''D:AUTORUN. SYS" 

28 FOR oi TO 155:READ I:PUT HL,I:NEXI 
à 

38 CLOSE ai 

58 DATA 255,255,8,6,142,6,162,8,189, 26 
,3,281,69,248,5,232 

52 DATA 232,232,288,244,232,142,185,6, 

189,26,3,133,285,169,187,157 

54 DATA 26,3,232,189,26,3,133, 206,169, 

6,157,26,2,168,8,162 

56 DATA 16,177,205,152,107,6,288,202,2 

88,247,169,67,141,111,6,169 

58 DATA 6,141,112,6,169,11,141,186,6,9 

6,172,106,6,248,9,185 

68 DATA 131,6,206,186,6,160,1,96,138,7 

2,174,185,5,165,285,157 

62 DATA 26,3,232,165,286,157,26,7,104, 

178,169,155,168,1,96,7 

64 DATA 8,251,243,51,246,67,6,163,246, 

51,246,68,246,76,228,243 

66 DATA 8,32,32,32,32,32,32,32,12,32,7 

3,76,76,69,72,58 

68 DATA 68,34,78,85,82,226,2,227,2,8,6 








Ruth Ellsworth: JOYSTICK ROUTINES 


BASIC 


18 REM JOYSKETCH 

28 GRAPHICS 7+16 

30 1284 

M 24g 

56 IF STICK(8)27 THEN 121+1 

64 IF STICK()26 THEN XaX+1: YaY-l 
78 IF STICKIS)214 THEN YeY-1 

86 IF BTICK(8)s5 THEN X=X+1:Y=Y+1 
98 IF STICK(8)211 THEN Xal-1 

188 IF STICK (8)218 THEN X21-1:Y2Y-1 
118 IF STICK(6)#13 THEN fett 

128 IF STICK(6)#9 THEN XaX-1;YaY+1 
138 IF 10158 THEN 12189 

146 IF Y)94 THEN Y295 

156 IF Li THEN 126 

168 IF Y<1 THEN Yao 

178 COLOR 1 

188 PLOT X,Y 

198 FOR WAIT#1 TO S:NEXT WAIT 

288 GOTO 58 


PILOT 


5 R:PILOT ETCH 
19 C:4Y26 

28 C:#1=4 

188 #6TICK 

116 J(13821) +A 
128 J(19629) :48 
136 1013628) at 
148 10138218) 34D 
158 J(20426)34F 
188 J(10822) 386 
178 Ji1js4) 546 
188 J(20825) sak 
191 30-79) 141 
192 02079): 
193 JUYC-31) 24K 
194 1047) sal 
249 GR:60T0 21,2Y 
288 J: #STICK 

255 E: 

288 A 

278 Culte 

286 Ci#Y=2Y41 
281 GRIDRANTONX, #Y 
285 J: #STICK 

287 E: 

298 +B 

388 CH4Y=1Y+1 
318 C Bst) 
312 GRIDRANTORY, #Y 
315 J:48TICK 

317 E: 

128 at 


338 C:4Y22Y 

348 Cree Xe 

543 GR: DRAWTOSX, Ar 
346 J: #8TICK 

347 E; 

338 ab 

368 Ci#Y=èY-1 

378 C: 810281 

378 GR:DRAWTOSY, Ar 
376 J:*8TICK 

377 E: 

386 E 

398 C: Y21Y-1 

488 C:#l=i1 

485 GRIDRANTOEX, Ar 
487 J:s8TICK 

488 E: 

418 AE 

428 Ci#Yz1Y-l 

439 Ci#l=iX-1 

435 GRIDRANTONX, #Y 
437 J:#8TICK 

438 E: 

448 46 

458 Ci#YziY 

468 C:bisil-1 

465 GR: DRAWTOSX, #Y 
467 J:*8TICK 


486 C:4Y22Y41 

498 C:#XziX-1 

495 BR: DRAWTOSX, Ar 
497 J:*8TICK 

498 E: 

288 al 

518 C:#Y=-79 

813 GRIDRANTO-79,4Y 
516 JI#STICK 

$17 E: 

328 A 

538 C:81579 

939 GR:DRANTO79,4Y 
536 J: #STICK 

538 E: 

548 ak 

998 C;4Ys-51 

Soo GR: DRANTORY, -31 
557 J:s8TICK 

948 E; 

958 a 

578 C:#¥247 

575 GR DRAWTOSX, 47 
3977 J: oi 

578 E: 


LOGO 


TO JOYDRAW 

HT 

IF JOYB $ (STOP) 

IF ( JOY 8 ) = $ [SETH 9) 
IF ( JOY 8 ) = 1 (SETH 45] 
IF ( JOY 8 ) = 2 [SETH 90) 
IF ( JOY 8 ) = 3 (SETH 135) 
IF ( JOY $ ) = 4 [SETH 188) 
IF ( JOY $ ) = 5 (SETH 225) 
IF ( JOY 8 ) = & (SETH 278) 
IF ( JOY 6.) = 7 (SETH 315) 
FD 1 

JOVDRAW 

END 


ACTION! 


PROC DRAN() 
BYTE ctr, x2[881, yz (481 


Graphics(7+16) 
DO 


IF Stick(8)z7 THEN xzx*1 

ELSEIF Stick($)=6 THEN xzx*1 yzy-1 
ELSEIF Stick(#)214 THEN ysy-1 

ELSEIF Stick(8)28 THEN xzx*l yzy+l 
ELSEIF Stick(8)=11 THEN xzx-1 

ELSEIF Stick(8)218 THEN xzx-1 yzy-1 
ELSEIF Stick(8)=13 THEN vert) 

ELSEIF Stick($)=9 THEN xzx-1 y=y+1 FI 


IF X158 THEN x=159 FI 
IF y)94 THEN ya95 FI 
IF adi THEN x26 FI 
IF y(1 THEN ys FI 


color=i 
Plot (x,y) 


FOR ctr=1 TO 2886 DO 
0D 


0D 
RETURN 


Stan Ockers: ANGLEWORMS (ACTIONI) 





——— AMA 


SAN NH Pe — 1 Ch En ED 
<> 


dedi Aui di an 


EE en 
ma w FEN . 


; ANGLEWORMS II 

; Stan Ockers 12/83 

| ACE Newsletter, 3662 Yine Maple 
; Eugene, Or 97405 $12 vear 

|. FER 1984 ACTION! Listing 


MODULE 35cme global variables 

RYTE ARRAY Xsaved (208), Xsavei (288), 
Ysave# (208) , Ysavel (288),xpos (2), 
ypos{2},sndflg(3),pit(3), val (3), 
dur (3), sxposi2), sypos (2), savestk (2) 

BYTE head@, tail, headi,taili,stk, 
Consol “53279, tutrow=656, txtcol-657, 
calari=789, color2=718,stlaq8=[8), 
sflagl=[8],x, y,longcnt, grow, pl yrs, 
level, shots, shotsl,win, del, tunepos 

CARD cat, speed, scoref,scorel,qoa! 

INT ARRAY delx (2),dely (2),sdelx (2), 
sdely(2) 

BYTE ARRAY tunenote-[64 72 81 81 81 
128 121 188 188 188 81 72 64 64 64 
72 81 72 64 72 72 84 72 81 81 Bi 
128 121 188 188 188 81 72 64 53 53 
64 81 72 44 72 81 128 188 128 188 
128 121 188 108 121 96 121 96 121 
188 96 96 188 81 81 188 188 128 
128 144 81 72 64 53 53 64 81 72 64 
72 81) 

BYTE ARRAY tunedur=[8 8 lé 14 l6 8 B 
16 16 16 88 16 16 88 8 8 16 16 
1688 16 16 16 8 8 16 15 16 8 8 
i6 148888 14 16 32 16 16 16 16 
88 16 32 16 16 16 16 8 8 16 15 16 
16 lé 16 16 16 16 16 88 16 16 8 8 
8 8 16 16 14] 

PROC Init!) ; Woras to starting pos. 

FOR cntz8 TD 199 

Do 
Xsavef (cnt) 718 Vsavebicnt)-18 
Xsavel(cnt) z18 Ysavel(cnt)=19 

OD 


A LU 
il Ch PSE’ RE E IE RE 


FOR cntz2 TO 4 
DD 

Ysaved (cnt) -94cnt. Xsavel (cnt)=78-cnt 
OD 
FOR cnt=8 TO 3 
DG 

sndflgicnt)=8 pit(cnt)=8 vol (cnt)=8 
OD 
xpos(#)=13 ypos(#)=18 delx(@)=1 
dely(8)=8 xpos{1)=66 yposi(1)718 
delx(1)=-1 dely(1)=8 savestk(8)=15 
savestk(1l-15 speedz2888/level grow=3 
longcntzgrow headd-4 headi=4 tailf-$ 
taill-8 

RETURN 


PROC Bkgd() ; Draw walls & rectangles 
BYTE x,y, line, height, width 
CARD dl 
BYTE ARRAY dli=[72 138 72 152 72 149 
55 162 32 168 82 141 19 212 141 26 
288 142 22 288 148 23 298 184 168 
104 178 184 64] 
Graphics(5) dl=Peek (568) 
dsstbeek (561)#256 Poketd] «44, $8A) 
Poke (d1+45,78) Poketdl *48,4) 
Poke (d)+49,4) Poke(di+54, 6i 
Poke (788,138) Poke (789,282) 
Poke(710,78) Poke(712, 138) 
txtrow-# txtcol-8 
FOR cnt=1 to shots 
DO 
Put (42) 
DD 
IF plyrs=2 THEN tatcol-13 
FOR cntz1 to shots! 
DO 
Put (178) 
OD 
FI 
txtrow=8 txtcol=6 Printi'level ") 
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PrintB(level) 
txtrowsi txtcol=23 Print ("plyr#i") 
PokeC(512,dli) Poke (54286, 192) 
IF plyrsz2 THEN Printi' plyr#2") 
ELSE Printi' computer') 
FI 
txtrow=1 txtcol=4 Print (scored) 
txtcolz12 Printl(scorel) 
colorzi Position(f,8) Drawlo(79,8) 
DrawTo(79,39) DrawTo(8,39) DrawTo(8,8) 
FÜR cnt=1 to Rand (3) 42 
DG 
x=Rand (88) y=Rand (49) 
heightzRand(18)*3 width=Rand (18) +3 
IF xtwidth>79 THEN width=79-x 
FI 
IF ytheight>39 THEN height=39-y 
FI 
color=i 
FOR line=y te ytheight 
DO 
Plot(x,line) DrawTo(x+width, line) 
0D 
OD 
color=@ Plot (1,18) DrawTo(78,18) 
FOR cnt=# TO 4 
DO 
colorzz 
Plot(Xsaved (cnt) ,Ysave£& (cnt) ) 
color=3 
Plot (Xsavel (cnt) ,Ysavel (cnt)) 
0D 
RETURN 


PROC Note (BYTE chan,pitch, duration) 
IF sndflq(chan)=8 THEN 
Poke ($0288+2#chan, pitch) 
pit(chan)=pitch vol (chan)=8 
Poke ($D281+2#chan, 168) 
sndflq(chan)=1 dur (chan) duration 
FI 

RETURN 


PROC Pla (BVTE chan) ; Play tune 
IF sndflgíchan)zi THEN 
IF dur (chan)?8 THEN dur (chan) 27-1 
ELSE vol (chaniss-1 
Poke ($0281+2#chan, 168+vol (chan)) 
IF vol (chan)=8 THEN sndflg(chan)-$ 
FI 
FI 
FI 
RETURN 


PROC Stkupdate(BYTE stknua) 
BYTE ARRAY clank 
BYTE snd 


clankz"!2:29DLU£r" sndsclank(Rand (18)) 
stk-Stickistknuas) 


Fosition(3,choice) PutDié, 138) 
stk=Stick (f) 


PROC Erasetail#() ; Remove from tail 
colors Plot(Xsavefitaiifi, 


IF stkOsavestk(stknua) THEN Ysave#(tailg)) IF stk=14 AND choice;17 THEN 
Note (stknua, snd, 1) tailg==+1 choice==-2 

FI IF tail6-288 THEN ELSEIF stk=13 AND choice<21 THEN 

savestk(stknum)=stk tailg=é choice==+2 

IF stk=14 THEN FI ELSEIF choicezi7 AND (stk-7 OR 
dely(stknua)=-1 delx(stknua)=9 RETURN stk=11) THEN 


ELSEIF stk=13 THEN 
dely(stknua)=i delx(stknua)-é 

ELSEIF stk=7 THEN 
dely(stknum)=8 delx (stknua)=! 


IF plyrs=1 THEN plyrs=2 
PROC Erasetaili() ELSE plyrs=! 
color=@ Plot (Xsavel(taill), FI 
Ysavel (tailí)) ELSEIF stk=7 AND choice=19 AND 
ELSEIF stk=11 THEN tailizzri level(9 THEN level==+1 
dely(stknua)=8 delx (stknua)=-1 IF tailiz288 THEN ELSEIF stkz11 AND choice=19 AND 
FI taili=6 level?! THEN level==-1 
xpos (stknua)==+delx (stknua) FI ELSEIF stk=7 AND choice=21 AND 
ypos (stknua) ==+del y(stknua) RETURN goal (9988 THEN goal==+186 
RETURN ELSEIF stk=11 AND choice=21 AND 


PROC DIy(CARD maxwait) goal 51888 THEN goal---190 


PROC Lookfwd() ;For computers wora CARD wait FI 
IF Locate (xpos(1)+2#delx(1), FÜR waitz1 to aaxwait FI 
ypos (1) +2édely(1))(X8 OR D0 Play(@) DLY(35@) 


Rand (188) (5 THEN 0D IF sndflg(8)z8 THEN 
IF delx(1)4?8 THEN delx(1)z8 RETURN Note (8, tunencte (tunepos), 
IF Rand(2)=8 THEN delvil)si tunedur (tunepos)) 
ELSE dely(1)z-1 PROC Title 5 Opening screen-choices tunepos==+l 
FI BYTE wait=[1], choice, ypos IF tunepos=73 THEN tunepos-£ 
ELSEIF delyí1)O8 THEN dely(t)=6 CARD d] FI 


IF Rand (2)z8 THEN delx(li=i BYTE ARRAY firstline(14)-113 65 238 FI 
ELSE delxii)--1 183 76 197 247 79 218 189 83 32 UNTIL Strigi£)z8 
FI 185 1851 0D 

FI Do SndRst () 

IF Locate (xpos(1)+2#delx (1), UNTIL consol<34 RETURN 


ypos t1) +2kdely(1)) 8 THEN 0D 
delx(1)=-delx(1) Graphicsi17) Poke(712,64) tunepos=é 
dely(1)=-dely(1) di=Peek (568) dl==+Peek (561) #256 


PROC Flash8() i Worm hit something 
FOR cnt=i to 18 





FI Poke{d1+12,7) Poke(dl*8,2) DO 
FI Poke(dl+18, 2) coloriscalor1+8 
xpos(lis-tdelxil) ypos(l)==+dely(1) Pasition (3,8) PrintD(6,firstlinel Sound (8, 28+5tcnt, 12,18) Dy (3888) 
RETURN Position(4, 18) colori-colori-8 Sound(#,8,8,8) 
PrintD(6,"by $. OCKERS") Dly (3988) 
PROC Addhead9() ; Extend head Position(11, 14) üD 
headg==+1 PrintD(6, "Written in ACTION!") RETURN 
IF head4=288 THEN headéz$ Positian (3,23) 
FI PrintDi6, "fire-start game") choice=17 PROC Flashi() 
Xsavef (headf)-xpos (8) DO FOR cntsi to 18 
Vsavef (head#) zypos (8) Wait==-l DO 
color=2 Plot (3pos (8) , ypos (8) ) IF wait<=@ THEN wait=15 colorZ-color2*8 
RETURN Position(7,17) Sound (1,58451cnt, 12,18) D1y 3880) 
PrintBD(ó,plyrs) PrintD(6," players". color2-color2-8 Sound!i,8,8,8) 
PROC Addhead! () Positien(7,19) PrintD(4, "level ") Dl y (3888) 
headi==+1 PrintBD(é, level) QD 
IF headi=288 THEN headi-é Position(7,21) PrintD(é, "goal ') RETURN 
FI PrintCD (8, goal) 


Xsavel (headi)-xpos (1) 

Ysavel (headi)-vposti) 

color=3 Plot (xpos(1),ypos(1)) 
RETURN 


FOR ypos=17 TO 21 STEP 2 
Do 
Position(5,ypos) PutDió, 32) 
OD 
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PROC Sinitdi) ; Set up shot aovesent 
stlagf=1 sxpos(#)=xpos(di+delx(8) 
sypos(8)=ypos if) +delyig) 
sdelx (6) =delx (8) sdely(8)=dely(8) 


Pake (656,9) Poke(457, shots@-1) 
Put(32) shotsg==-1 
RETURN 


PROC Siniti() 
sflagi-1 sxpos(1)zxposi1) *delx (1) 
Sypos (1) sypos(1) *dely(1) 
sdelx(t)=delx(1) sdelv(i)-delv(i) 
Poke(656,8) Poke(657,shotsi+14) 
Put(32) shotsiss-1 

RETURN 


PROC Saove&() ; Move shot 
calorz Plot(sxpost8) , sypos (8) ) 
Sound (8, 68,2, 18) 
FOR cnt=1 to 2 
DO 

sxpos (#)==+sde] x (8) sypos (#)==+sdel y (8) 

color=@ plot (sxpos(#), sypos (4) ) 

IF sxposi#)<=1 OR sxpos(#)>=78 OR 
sypos{#)<=1 OR sypos(@)>=38 THEN 
sflagé-6 Sound (8,8,8,8) EXIT 

FY 

OD 

IF sflag@=9 THEN colorzé 

ELSE color=? 

FI 

Plot (sxpos (8) , sypos (8)) 
RETURN 


PROC Saovel () 
color=@ Plot (sxpasi1) ,sypos (1)) 
Sound (1,78, 2,18) 
FOR cntz1 to 2 
DO 

Sxpos(l)==+sdalxi1) svposil)s-esdelvil) 

color-f plot(isxpos(l),sypos(1)) 

IF sxpos(1)(21 OR sxpos(1))=78 OR 
sypos{1)<=] OR sypos(1)2238 THEN 
stlaql-f Sound(1,8,8,8) EXIT 

Fi 

0D 

IF sflagi=é THEN color-g 

ELSE color=3 

FI 

Plot (sxpos (1), sypos(1)) 
RETURN 


PROC Marque!) ; Used in end display 
FOR x-itdel TO ié+del STEP 3 
DO 
Play(g) 
Positionix,1) PutD(é, 178) 
IF x€18 THEN Position(x+1,1) 
PutD(4,42) 
ELSE Positionil,1) PutD(6,42) 
FI 
Di 


FOR y=2+del TO 29+del STEP 3 

DO 
Position(18,y) PutD(é,178) 
IF yé22 THEN Position(18, vii) 
PutD(6, 42) 
ELSE Position (18,2) PutD(6,42) 
FI 

0D 

FOR x=3-del TO 18-del STEP 3 

DO 
Position(x,23) PutD(6,178) 
IF x>1 THEN Position(x-1,23) 
PutD(6, 42) 
ELSE Position (18,23) PutD(5, 42) 
FI 

0D 

FOR yz4-del TO 22-del STEP 3 

DO 
Position(1,y) PutD(5,178) 
IF 922 THEN Positionil,v-1) PutD(é,42) 
ELSE Position(1,22) PutD(6,42) 
FI 

OD 


RETURN 


PROC Gaseover() ; Ending screen 


Graphicst17) Poke(712,32) tunepos=é 
Position (3,5) PrintD(6,"the winner is") 
Position (4,7) 
IF scorefżzgoal THEN 

PrintD(6," PLAYER #1") 
ELSEIF plyrs=2 THEN 

PrintD(6," PLAYER #2") 
ELSE PrintD(é, "THE COMPUTER") 
FI 
Position(2,9) 
PrintD(6,"NIT# A SCORE OF") 
Position(4,11) 
IF score#>=goal THEN PrintCD(5, score?) 
ELSE PrintCD(6,scorel) 
FI 
PrintD(6," VS ') 
IF scoref?-goal THEN PrintCD(5,scorel) 
ELSE PrintCD(6, scored) 
FI 
Positian (4,13) 
PrintD(6, "08 LEVELE ") PrintBD(é, level) 
Position(3, 18) Printb(à, "press START") 
Position (4,19) PrintD(6, "to play again") 
colorz178 Plotí1,1) DrawTo(18,1) 
DrawTo (18,23) 
DrawTo(1,23) DrawTo(1,1) color=42 
FOR x=1 TO 16 STEP 3 
DO 

Plot(x,1) Plot(x+2,23) 
0D 
FOR y=1 TO 22 STEP 3 
DO 
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Plot(i,y) Plot(18,y+1) 
0D 
del=8 cat=i 
DO ; Flashing lights & ausic 
Marque() del==+j 
IF del=3 THEN del-é 
FI 
IF sndflq(é)=8 THEN 
Note (8, tunenotettunepos), 
tunedur (tunepos)) tunepos==+{ 
IF tunepos=73 THEN tunepos- 
FI 
FI 
UNTIL Consol=6 
0D 
RETURN 


PROC Main!) ; The game 
BYTE nextò=[$],nexti=[g) 
CARD tiae 
DO ; This loop is endless 
00 ; Restart game 
plyrs=1 levelsi score@=@ scorel=é 
shotsé-5 shotsi=5 winzé qoal-1898 
DO ; Bet playing choices 
Title() 
DO ; Draw a new playfield 
Init() Bkgd() tise=8 
DO ; Move woras until collision 
Stkupdate (9) 
IF plyrs=1 THEN Lookfwd() 
ELSE stkupdate(1) 
FI 
Addheadd() Addheadii) 
longcatss-1 
IF longcnt? THEN 
Erasetail8() Erasetaill() 
ELSE longentzgrow 
FI 
IF sflagé-8 AND Striq(8)20 
AND shots8)8 THEN Sinit8() 
FI 
IF sflagi=8 AND Strig(1)=8 
AND shotsi?8 THEN Siniti() 
FI 
IF sflag@=1 THEN Saove#!) 
FI 
IF sflagi=1 THEN Saovell) 
FI 
Divispeed) Play(#) Play(1) 
timestimeti txtrow=@ txtcol=29 
IF tiae MOD 5-8 THEN 
PrintC (tiae! 
FI 
txtran=8 txtcol=é 
IF time MOD 58-0 THEN 
Print("level ") 
PrintB(level) Printi' ') 


| 





ELSEIF tiae MOD 34-8 THEN 
Print("win=") Print (goal) 
FI 
next@=Locate (xpos (4) +delx (8), 
ypos (8) +dely (8) ) 
nextl= Locate(xpos(t)+delxil), 
ypos (i) *dely(1)) 
UNTIL next928 OR nexti?? 
On 
SndRst () 
IF next THEN flash8() 
ELSE flashi() 
FI 
tisestiae/S#5 
DO ; Update score 
timess-3 
IF next6)8 THEN scoreizz*5 
Note(8,38,6) 
ELSEIF nexti>@ THEN 
scoreg==+5 Note(1, 49,4) 
FI 
txtrowsi txtcol=4 Printl (scored) 
txtcol=12 Printl(scorel) Pokel77,8) 
txtrow=8 txtcol-29 Printlitime) 
Print(* Bi 
FOR cntz1 TO 18 
DO 
DIy(268) Play(8) Play(1) 
0p 


UNTIL time<=9 OR time)544888 

0n 

SndRst () 

IF scoredi?-goal OR scorei?sgoal 
THEN winsi EXIT 


FI 
DO 
UNTIL Strig(f)-8 OR Strig(l)=9 
OR consoi=5 OR consol-3 
DD 
UNTIL consol=5 OR consol-3 
; Exit only if consoi key pushed 
Op 
UNTIL win=i OR consol=3 
; Exit on win or option key 
OD 
IF consol=3 THEN EXIT ; skip gaaeover 
FI 
Gageover () 
Di 


Sten Ockers: 
ATARITRAIN corrections from Dee 
2858 SOUND 8,P,18,8:50UMD 1,2*P,10,6:F 
OR L=i TO 12XT 

. 2868 NEXT L:SOUND 8,8,8,8:50UND 1,8,8, 
8 

2878 MEXT J:RETURNM 


Clint Parker: TELEPHONE DIRECTORY (ACTIONI) 


ANTIC Telephone Directory 


records 


Mm E M L 


am (Memor: — 
records availabie = 


a 
652 


€i3 Enter new data 
C23 Read in data 
£I3 Save data 

£45 Alter data 

£53 sort data 

€63 Last data 

€73 


Exit to ACTION! 


Enter your choice? E 


MODULE ; TELEPHON. ACT 


$ ANTIC telephone directory 
s by Clinton Parker 


; October 29, 1983 


; ACE NENSLETTER, 3662 VINE HAPLE 
; EUGENE, OR 97105 $127R 
i FEB 84 ISSUE 

3 SEE BNTIC FEB $4 ARTICLE BY 
d JERRY KRITE FOR DETAILS 


DEFINE STRING = "CHAR ARRAY" 


DEFINE LNAME = "j*, 
FNAME = "12°, 
ACODE = "24", 


DEFINE STRING = "CHAR ARRAY" 


DEFINE LNAME = "ër, 
FNAME = "12", 

ACODE = "24", 

EXCHB = "27", 

PHNUM = "39" 

- DEFINE RECLEN = "34" 


; records aust be the first array 
s declaration so that free aeaory 
; will be calculated properly in 
; proceedure Main below 

CARD ARRAY records(1) 


BYTE choice, IO err 


CARD mas rec, total 
STRING dev, record, teap(12#) 


13 


; trap errors here 
PROC MyError (BYTE err) 

IG err = err 

PrintF("ZEError - ZBZE', err) 
RETURN 


PROC MyOpen(BYTE mode) 
IQ err = 8 ; assume no error 
Clase(2) 
Open(2, dev, aode, B) 

RETURN 


PROC Clear() 
Graphics (9) 
SetColoriż, choice, $) 
SetColorí(4, choice, 4) 
SetColor(1, 8, 13) 
RETURN 


PROC Ding’) 
BYTE volume 


CARD delay 
volume = 13 
DO 


Sound (8, choice, 2, voluae) 
volume = voluae - | 


FOR delay = 1 TO 398 DO OD 
UNTIL voluse-$ OD 
SndRst () 
RETURN 


; beep user & wait until START pushed 
PROC GetSTART() 
BYTE CONSOL=53279 


Dingi) 

CONSOL = $ 

DO UNTIL CONSOL=6 0D 
RETURN 


PROC StartIQU 

PrintF ("ZEpress START when 1/0 
device is readyXE") 

BetSTART () 
RETURN 


PROC StartMenu () 
PrintF(“ZEpress START for MenuZE") 
Get START () 

RETURN 


CHAR FUNC BetCh(STRINB asg, CHAR cl, c2) 
CHAR ch 


DO 
PrintF (asg) 
ch = GetD{7) Putich) 
ch = ch 2 $28 ; make lowercase 
UNTIL ch=cl QR ch=c2 OD 
RETURN (ch) 


CARD FUNC Search(CARD rec) 
BYTE inlen 


IF reczi THEN 


DO 
PrintF("ZEEnter last name for 
search? "j 
Input5(teap) 
UNTIL teap(8):6 OD 
FI 
IF teap (A) FNAME THEN ; don't go 
teap (8) = FNAME ; into first 
FI | Name 


FOR rec = rec TO total DO 
record = recordsírec) 
record(d) = teap (8) 
IF SCoapare(teap, record)-9 THEN 
recard(g) = RECLEN 
EXIT 
FI 
recordiġ) = RECLEN ; reset length 
OD 
RETURN (rec) 


PROC GetF (STRING asg, BYTE offset, size) 
BYTE COL=85, old col 


PrintF (asq) 


print out old field for default 

tl is for size byte of string 
MoveBlack(teap*i, recordtoffsettl, 
size) 


"^ un 


teap (8) = size 
old col = COL 
Print (temp) 


COL = old coi - 1 
Put(31) 5 move right to show cursor 


InputS(teap) 
IF teap (A) (size THEN ; pad with blanks 
SetBlock (teap+teap (6)+1, size-teap(f), 

èn 

FI 
i ti is for size byte of string 

Moveblock (recordtoffsetti, temp+i, size) 
RETURN 


PROC Modify() ; record 
5e 
tF("XEEnter last name: ",LNAME,FNAME- 
LNAME) 
GetF("ZEEnter first name: ",FNAME,ACODE 
-FNAME) 
GetF(*ZEarea code: ",ACODE,EXCHG-ACODE) 
Beth ("ZEexchange: ", EXCH6, PHNUM-EXCH6) 
bett ("ZEnuaber: ",PHNUM,RECLEN-PHNUM) 
record(8) = RECLEN ; set string size 
RETURN 


PROC Enter () 
IF total?saax rec THEN 
PrintF("ZENG additional records 
availablezE”) 
StartMenu() 
ELSE 
PrintF("ZEenter new data: ZE") 
total = total + 1 
record = recardsitotal) 
Modify() 
FI 
RETURN 


PROC Read) 
PrintF("ZERead datazE") 
StartiDi) 


MyOpen (4) 
IF IQ errzà THEN 
total = $ 
DO 
IF total egen rec THEN 
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PrintE("File too big") 
Ding() 
EXIT 

FI 


InputSD(2, recordsitotal+i)) 
IF EGF(2) THEN EXIT FI 


total = total + 1 
PrintF("ZErecord #XUZE", total) 
PrintE(records(total)) 
0D 
FI 
Close(2) 
StartMenui) 
RETURN 


PROC Save() 
CARD ae 


IF total=8 THEN 

PrintE("I have no data to save") 
ELSE 

PrintF(*ZESave dataZE") 

Start DI) 


HyOpen (8) 
IF 10 errz& THEN 
FOR me = 1 TO total DO 
PrintE(records (ae) } 
PrintDE(2, records (ae) ) 
0D 
FI 
Close(2) 
FI 
StartMenul) 
RETURN 


PROC Alter() 
CHAR ch 
CARD rec 


FrintF("ZEAlter dataZE") 


IF total=# THEN 
PrintE(*I have no data to alter") 
RETURN 

FI 


rec = 8 
DO 

rec = Search(rec+1) 

IF rec?total THEN 
PrintF("ZEXE not foundZE") 
StartMenut) 

RETURN 

FI 


PrintF(" XEZEZSZE'", record) 

ch = GetCh("ZEis this the record to 

be altered (Y/N)ZE? ", "y, "m 
UNTIL chz'y OD 


Modify) 
RETURN 


PROC Sorti) 
CARD ae, v 
INT L 
STRING strpos, lv 


PrintF(*ZESorting") 
IF total(2 THEN RETURN FI 
v = total 
DO 
Put(’.) 
vey/ ti 
FOR ae = 1 TO total-v DO 
; Put (^ .) 
L = ae 
D 


strpos = records(L) 

lv = recordsiltv) 

IF SCompare(strpos, lv)(=8 THEN 
EXIT FI 


; exchange records 
records(L) = lv 
records(Ltv) = strpos 


Lay 
UNTIL L<1 OD 
0D 
UNTIL vi=i QD 
Dingi) 
RETURN 


PROC List) 
CHAR paper 
CARD ae 


IF total=@ THEN 


Printf ("ZEI have no data to listzE") 


ELSE 
Print F("ZElist data: XE") 
paper = $ 


IF GetCh("ZEtype 5 for screen display 
onlyžEor P for for screen and printer 


"e, 'p)z'p THEN 
IQ err = 8 
Clase(4) Open(4, "Pi", 8) 
IF I0 errz& THEN paper = 1 FI 
FI 


Clear () 
PutEO 
tesp(9) = 37 
temp(25) = '( 
teap (29) = 7) 
teap (33) » 
FOR ae = i TO total DO 
record = records (ae) 
MoveBlock{teapti, record+!, 24) 
MoveBlock (teap+24, record+25, 3? 
ĦoveBlock (teap+38, record*28, 3) 
MoveBlock(teap+34, record+31, 4) 
PrintE (temp) 
IF paper THEN PrintDE(4, temp) FI 
oD 
Claseí4) 
FI 
StartMenu() 
RETURN 


3 


IL m M 


PROC Maint) 
CHAR in, CH=764 
BYTE CRSINH=752 
BYTE POKMSK=16, IRGEN-33774 
BYTE LMARGIN-82, RMARGIN=BS 
CARD MEMTOP=741 
CARD i, free, old Error 
BYTE POINTER next 
STRING tab(#)=" $ 


; disable BREAK key 
POKMSK = 64 IRBEN = 112 


; setup to trap errors 
ald Error = Error 
Error = MyErrar 


; get record space 

total = Ø ; no records yet 

free = MEMTOP - records 

IF free)32088 THEN ; INT divide 
max rec = 32008/(RECLENtS) + 

(free-32868)/ (RECLEN+S) - 1 

ELSE 
max rec = free/(RECLEN+S) - 1 

FI 

SetBlock(records, free, ' ) 


; setup string array 
next = records + max rec*sax rect? 
FOR i = 1 TO max rec DO 
records(i) = next 
next = next + RECLEN + 1 
oD 


; setup screen 
choice = $ 
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Clear () 
LĦARBIN = 1 RMARBIN = 39 
; get device 
Close!7) QOpen(7," Ki") 
in = GetCh("ZEtype L for Cassette or D 
for Disk: ", 'c, 'd) 


IF ins'e 
THEN dev = TL" 
ELSE dev = "D:TELEPHON. BAT" 

FI 

j menu cade 

DO 
Graphics (4) 
SetColor (2, 12,8) 
SetColor (4, 12,4) 


CRSINH = 1 ; no cursor 

tab^ = 7 

Print F("ZEZSANTIC Telephone Directory 
AE", tab) 

tab* = 9 

PrintF("ZEZSrecords in memory = ZIJE" 
, tab, total) 

PrintF("4Srecords available = ZIRE”, 
tab, max rec-total) 


tab' = 15 
PrintF('ŻEŻSĦ E N UZE", tab) 
tab" = 18 


PrintF ("ZEXS(1) Enter new dataZE", tab) 
PrintF("ZEZ5(2) Read in datażt', tab) 
Print F("ZEZS(3) Save datazE", tab) 
Print F("ZEXS(4) Alter datazE", tab) 
PrintF("ZEZS(5) Sort dataZE'", tab) 
PrintF(*ZEZ5(8) List dataZE", tab) 
Print F("ZEZS(7) Exit to ACTION! XE", 
tab) 


in = $ 
WHILE in4' OR ind’? DO 
Position(18, 22) 
Put (155) 
choice = $ 
CRSINH = $8 : show cursor 
CH = $FF ; ignore old char, if any 
Position(18, 22) 


Ding() 
Print("Enter your choice? ") 
in = BetD(7) — Put (in) 


OD 


choice = in - '8 
Clear () 


IF in=’{ THEN Enteri) 
ELSEIF in=’2 THEN Read () 
ELSEIF ins'3 THEN Save() 
ELSEIF inz'4 THEN Alter) 


ELSEIF ins'3 THEN Sort () 
ELSEIF ins'ċ THEN List) 
ELSEIF inz'7 THEN EXIT 
FI 

QD 


Braphics() 


$ restore system error routine 
Error = old Error 


; enable BREAK key 
POKMSK = 192 IRBEN = 248 


RETURN 


FER MEETING WEDS 
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PARTIAL CLEARING 


by Kirt E. Stockwell 

Any of you who have used DATA PERFECT or similar utility pro- 
grams may have noticed an interesting programming trick. At certain 
points in the programs, MOST of the screen will be cleared at machine 
language speeds, while the top few lines remain untouched. This can 
be a handy technique to have on hand, as the applications for this are 
limited only by your imagination. 

After meditating on this on and off for a week or so, l figured out 
what they were doing. (Figuring out how other programmers solve pro- 
blems is a hobby of mine). Once I figured out how to do this, it was 
easy to produce a BASIC program to duplicate the effect. The slick 
part of this is the BASIC suboutine works as fast as the machine 
language routine. 

The reason this routine moves so fast is the command used to clear 
the screen used by BASIC actually accesses the machine language 
subroutine in the operating system. The command PRINT (up left ar- 
row) is the desired command. To get the (up left arrow) symbol on the 
screen, type [ESCAPE] [CONTROL-CLEAR]. Put this symbol in quotes 
following a print command, or place it in a string. When printed, this 
character vectors the operating system to a routine placing ZERO's in 
screen memory, starting at the FIRST byte of screen memory. 

Now here is the fun part. The starting address of screen memory is 
held in two bytes located at addresses 88 and 89. To arrive at the star- 
ting address of screen memory, multiply the contents of location 89 by 
256. Then add the contents of location 88. The resulting number 
(usually 40000 on a 48K machine) is the first byte of screen RAM. To 
verify this, use the number as a POKE address and place some odd 
character there. For instance, if your machine's starting address is 
40000, you should POKE 40000,10. If a character appears in the upper 
left corner then you have done it right. 

This should give you a fun time, just playing with the different ways 
of using FOR-NEXT loops to POKE things into screen memory ana fin- 
ding the screen changing. Now, on to the program. This is designed to 
be used as a subroutine. The only variable you are required to feed it is 
the number of lines you want left blank at the top of the screen. This 
information should be placed in the variable LINES. | have arbitrarily 
placed the program line numbers starting at 10000. This is not crucial 
to the operation of the program, and you are welcome to change them 
to suit yourself. | believe the listing of the program is fairly self- 
explanatory, so | will offer one final comment: What we are doing is 
changing the starting address of screen RAM, but only as far as the 
operating system knows. We aren't telling the ANTIC about the 
change of address because then the new address will be the actual ad- 
dress. We don't want to change the actual address, we only want to 
fool the operating system into starting the clearing routine at a place 
of OUR choosing. After the clearing has taken place, we return the ad- 
dress to its original value, and the ANTIC chip is none the wiser. Have 


fun. 


Need a modem? In the last few days, | have received several phone 
calls asking me for advice for the “Best” modem for the Atari. One 
was from the author of an upcoming book on Networking. | have used 
one of the original MicroBits (225 3rd Ave S.W., Albany, Or 97321-2242) 
for quite a while and always recommend it for people who do not have 
an 850 interface. Last week, mine went out so I sent it in for repair. It 
turned out it was only a loose connection, but the owners of Microbits 
have always been strong supporters of ACE, and they decided to send 
me their brand new model — the new MPP 1000C ($150). What an im- 
provement, although the old one was great. This connects directly into 
the phone line and into your joystick port, has an excellent program on 
cartridge included (worth $50 compared to similiar programs), works 
with the BIT-3 and the Austin-Franklin 80 column boards, and requires 
no interface as it plugs into joystick port 2. The biggest improvements 
are Auto-Dial and Auto-Answer capabilities, a feature unusual in any 
modem of this price range. It also will store 10 phone numbers to call, 
download any size file, with direct disk and printer data transfer. The 
"Smart Terminal" cartridge allows you to prepare text and messages 
with its built in editor off line; there are also 9 dynamic buffers to use 
to up — or down-load mutilple files. Many more new features — look 
no more for a modem! 


ACTION! 

In this issue are a number of articles written in the new ACTION! 
language. It was not planned that way; it is because all of our regular 
contributors independently tried the language, liked it so much they 
started programming in it, and wish to share their excitment with the 
rest of ACE. Stan's program is a nice, fast-paced game illustrating 
many of the features of the language; Ruth shows how ACTION! and 
other languages compare; and the originator and developer (inventor?) 
of ACTION!, Clint Parker, has sent us many programs to put in this 


and future issues. The first is a companion program to the article and . 


BASIC program of Jerry White in the FEB or Mar issue of ANTIC!. The 
original article was to be a comparison of a BASIC Telephone direc- 
tory and a similiar one in ACTION!, but there wasn't room for the AC- 
TION! listing, so Clint sent it to us. It runs about 200 + times faster 
that the BASIC version, so | think we got the better part of the deal. 
Please read the ANTIC! article for the explanation on how it works, 
etc. 


ACTION! is manufactured by O.S.S. (1173-D Saratoga-Sunnyvale 
Rd., San Jose, CA 95129, $99) and comes on a bank-switched 24K car- 
tridge. It is a joy to use, with its built in Editor and compiler. According 
to the company, most of the older ACTION! cartridges have bugs in it, 
and you can exchange yours for a new one, with up-dated documenta- 
tion for $20 — now still in the EPROM version, but in about 6 weeks in 
a new, updated ROM version. Also available now is the ACTION! Pro- 
grammers Diskette, full of useful utilities, etc for $30, and a new AC- 
TION! Newsletter if you send in your Software License Agreement. If 
you want to get an ACTION! cartridge, expect a slight wait — they are 
expensive to make, and they are selling them faster than they can 
make them. There is also a Run-time package allowing ACTION! pro- 
grams to run on a binary load file without the Cartridge for $30 (non- 
commercial) License fee. 


—— M, Dunn 


10000 REM XXXX PARTIAL CLEARING Xkxx 


10010 REM X FOR EUGENE A.C.E. 
100720 REM 4 RY 

19030 REM X KIRI E. STOCKWELL 
10040 REM xk PRESIDENT 


D 
x 
4 
x 


LOO50 REM RREKKKKKKKKKAK KKK KKK KER KK KA 


10100 LSB=PEEK(88) :MSB=PEEK( 89) 
10110 SCR=LSB+(MSBX256) 

10120 OFSET=LINESX40 

10130 NSCR=SCR+OFSET 

10140 NMEB-INTI(NSCR/256) 

10150 NLSB=NSCR-(NMS5BkX256) 
10160 POKE 88,NLSB:POKE 89,NMSB 
IUOITU $ TIS 

10180 POKE 88,LSB:POKE 89,MSB 
10190. POSITION 0. LINES 

10200 RETURN 
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REVIEWS 


Microbits Peripheral Products 
by Kirt E. Stockwell 


MPP 1000 


Telecommunications has become increasingly popular lately. Our 
own bulletin board system (BBS) has been receiving calls at a rate ex- 
ceeding 100 ... The Microbits MPP1000c modem runs WITHOUT any 
interface, and without any modifications to the computer. Everything 
required to begin telecommunication is included in the package. The 
package includes the MPP1000c auto-dial/auto-answer modem, Smart 
Terminal program cartridge, power supply with 5-foot cord, instruction 
manual, usual warranty paperwork, free trial membership on THE 
SOURCE, modular telephone cord (aprox 8 feet). 

The MODEM plugs into the #2 joystick port at the computer end. On 
the other end, it plugs into the wall plug (or an adaptor or splitter) 
without any other equipment needed. Of course you can use a phone 
with it, but it can be ANY phone of reasonably current technology. 

The Smart Terminal program (on cartridge) has the following 
capabilities: Full scale Uploading and Downloding; 10 dynamically 
allocated buffers; ASCII/ATASCII, STop-bit, Parity, and Checksum 
checking; Screen Editor Buffer Loading & Editing; Disk Directory; 
Variable Baud rate (110 to about 600); AUTO-DIAL and AUTO-ANSWER 
functions; and the Christiansen x- MODEM protocol. 

The Auto-Dial function allows the input and saving of up to 10 phone 
numbers on disk which are automatically loaded when the program 
boots up. 

The Auto-Answer function allows the MODEM to answer the phone. 
This DOES NOT allow you to use the MODEM as a BBS. The program 
is set up to automatically transmit ONE FILE each and every time the 
phone rings. l plan to use this feature to get my articles to the newslet- 
ter editor when I’m pushing deadline and can't be available. 

Another new feature | like is the Christiansen X-Modem protocol. 
Generally, data is transmitted one byte at a time. Depending on 
whether the computers involved are set to half duplex or full duplex, 
the receiving computer may or may not echo the data it received. 
(ECHO: send back to the source) In any case, very little checking is 
normally done to insure one computer actually got what the other 
computer sent. The X-MODEM protocol causes the sending computer 
to transmit 128 bytes at a time. After transmission, the sending com- 
puter waits for the receiving computer to echo the ENTIRE 128 byte 
block. If the Echo Block is IDENTICAL to the sent block, the next 
block will be sent. If, on the other hand, there is even one BIT different, 
the process begins again, sending each block as many times as 
necessary to complete a flawless transfer of the entire file. While this 
takes a little longer it is definitely worth the extra phone charges when 
you have sensitive data. 

The Baud rate is variable up to about 600 but most phone lines 
around the country can not maintain integrity transferring data above 
about 450 baud. The higher speeds are all right for text, but not pro- 
grams or sensitive data files. The MODEM doesn't have a port for a 
printer or any such googaws. It is simply an extremely easy to use 
communications device supplied with the best smart terminal pro- 
gram available. The documentation is clear and thorough, and the pro- 
gram is VERY easy to use as well as being very powerful and flexible. | 
rate this a BEST BUY in the telecommunication field. 


MicroFiler 

MicroFiler dbms by Microbits Peripheral Products of Albany, 
Oregon is written by Jim Harrison, in machine language and is on a 
cartridge. This will be of benefit to users with minimal systems as well 
as those who are not sophisticated in the use of disk drives. One of 
the important features of this program is the storage and retrieval of 
data (files) can be done with cassette OR disk. Thus, those of you who 
start on a cassette system can graduate to disk without having to re- 
enter all the files. 

Another nice feature Jim has managed to modify is the cassette 
storage parameters. The cassette speed has been increased to twice 
the normal ATARI speed. Also, the program is designed to encourage 
saving files twice. 

MicroFiler does not have the complex mathematical functions of 
programs such as Data-Perfect (my personal favorite) but it does have 
very good search and sort capacity. This includes multiple field sear- 
ches and wild card search. Another feature l like is the ability to place 
comments and/or headings directly on the data screen itsself (itself?). 

The program keeps track of the number of records you are permitted 
to enter (this of course depends on your machine's RAM and the size 
of the records) and tells you how many empty spots you have left. The 
records are kept in RAM, so there are definite limits to the number of 
records you have space for. On the other hand, all sorting and sear- 
ching is handled quickly since nothing needs to be fetched from disk 
or tape. 


MicroFiler is simple to use and very well documented. | recommend 
this one to most of you who haven't yet taken to using database 
managers. You might want to try this one. It is a basic yet feature- 
packed program giving you the power you need for your beginning 
level applications, as well as being a convenient program for keeping 
simple records on. This is an excellent program with which to break in- 
to the world of database management. The price is also very 
reasonable, especially when you take into account that the program is 
on cartridge. 


A.B.I.S. 


(Atari BASIC Interactive Structuring) 

ABIS is a program for writing Atari BASIC programs which display 
textual material. It can be used by the programmer and nonprogram- 
mer alike. It allows one to easily format text on the screen using the 
familiar Atari screen editor, then it writes out a BASIC program which 
will present the text. 

The program produced features automatic paging, and may be easi- 
ly modified if necessary. Its primary use is for making tutorials to be 
run on a computer. | have used ABIS to make programs to present the 
documentation for other programs, usually on the same disk. In this 
way, instructions can be provided without the need for paper. A very 
good application of this program, therefore, is to document programs 
on public domain diskettes so potential users will have an idea how to 
use programs whose function is less obvious. | have also used ABIS to 
make menu and instruction screens for use in other BASIC programs. 
When this is done, however, some modifications to the produced pro- 
gram are necessary. 


The Program 

When typing in the program, you will have to be quite careful about 
the positioning of quotation marks. Since ABIS is a program for 
writing other programs, the lines may seem contorted, but rest 
assured that if you enter them in correctly, it will work. The main loop 
is from lines 20 to 30 (actually ridiculously short). The reason this is so 
is that we are using the Atari screen editor which has so many func- 
tions built in. Lines 100 to 140 do the initialization, and lines 145 to 190 
write out the first routines of the tutorial program. Variables LINE and 
INC in line 100 control at what line number the program will start and 
by how much each line will go up by, respectively. You may change 
these if you wish. Lines 200 to 280 write out the routine to produce the 
text on the screen, and lines 300 to 330 are executed when the pro- 
gram execution is terminated. Note that in line 185 the break key is 
disabled, so it may not accidently be pressed, causing a disaster. 


Using ABIS 

Before using ABIS, you must first specify where the program pro- 
duced is to be saved. If you press C for cassette, it will be written out 
to tape. You will need to correctly position the tape, press PLAY and 
RECORD, and then press RETURN. 

If disk is chosen, you will need to enter a filename. Note that the 
usual “D:” prefix is not required. 

Now you are ready to format the first page of text. Use the normal 
screen editor functions to place text on the screen. (Note: All features 
of the screen editor are functional, with the notable exception of the 
CLEAR key. This has been disabled to prevent the accidental loss of a 
whole screen of text. If you wish to clear the screen at any point, simp- 
ly position the cursor on the top line using the arrow keys, and then 
press SHIFT-DELETE as necessary. 

Some formatting tips: To center a line of text, type it near the begin- 
ning of the line, then use CONTROL-INSERT and CONTROL-DELETE 
to get it to where it looks right. Also, press RETURN when you're fairly 
close to the right margin so you don't need to do lengthy CONTROL- 
INSERTs to effect word wraparound. | like to double space my text (I 
think this makes it easier to read). Also, | always like to leave a little 
message on the bottom of the screen to prompt the reader to push any 
key to continue. 

When you are satisfied with the screen, press the SELECT button, 
and, while holding it down, press the OPTION button. The screen will 
go blank while the program is written, then it will come back on to 
display the finished frame. Pushing any key will allow you to enter the 
next page. 
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When you have finished entering the last page of your tutorial, hold 
down the START and SELECT buttons, and, while doing so, press the 
OPTION button. After this frame is written out and you have pressed 
any key, you will be asked to confirm that the last page of the tutorial 
has been finished. Answering anything but yes here will allow you to 
add more material. 

If you indicate that you are indeed finished, ABIS will erase itself 
and ENTER in the program just written. (Cassette users will need to re- 
wind the tape at this point.) Therefore, the program just produced will 
be in memory and may be SAVEd, LISTed, RUN, or edited. 

All tutorials produced with ABIS feature a built in paging capability. 
As the reader finishes each page, he/she may press almost any key to 
advance to the next page. Pressing the ‘+’, back arrow, or Delete/Back 
Space key will get the reader to the previous page. This allows one to 
review material halfway through the session. l 


Quirks of ABIS 

First of all, ABIS disregards whatever you type on the bottom line of 
the screen, so don’t put anything there. Also, if you go to the bottom 
line and continue pressing RETURN, the top of your text will scroll off 
and be lost forever. ABIS will allow you to place any characters on the 
screen except the quotation mark (Shift-2), so you can't use it (use 
Shift-7 instead). 

A final note— ABIS will display a flashing block wherever you leave 
the cursor when you finish a frame, so keep that in mind. This is to pro- 
mpt the user that the program is waiting for him/her to take action. 

Since ABIS produced programs are linear in design, it is a good idea 
to make an outline of the points you wish to cover in your tutorial 
before sitting down to use ABIS. This usually results in a far more 
coherent tutorial— otherwise it is easy to forget what you have and 
have not covered. ` 


Conclusion 
Let me know what you think of this program. If you feel automatic 
centering/word wraparound is a needed feature, or you come up with 
routines to do this, let me know. 
— Dale Lutz 
Holden, CANADA 


ACE EXCHANGE LIBRARY 


The past couple of months have been extremely busy for the ex- 
change library. Three new disks were added at Christmas bringing our 
total to 31 disks containing over 325 programs 

The ERACE group has added Education disk #5. The editors have 
added the Best of ACE, Vol. 7 containing games from our members in 
England, Australia, and Stan Ockers. Ruth Ellsworth has completed 
Pilot 42 filled with games and projects for the younger computerists. 

The complete library list has been revised as of 1-15-84 and you may 
obtain your own copy by sending 50 cents in stamps or coin (US $1.00 
overseas) to ACE Exchange Library, 374 Blackfoot Street, Eugene, OR 
97404. 

The December issue of ANTIC magazine contained a very nice 
review of our disk Best of ACE 1983-#1 (now known as Best of ACE, 
Vol. #5). Thanks to this article, we were swamped and for awhile were 
running about 2 weeks late in getting orders back in the mail. We are 
finally getting caught up and apologize for the delay some of you ex- 


perienced. For those of you using cassettes, we will still be running. 


about 2 weeks behind on your orders. We are having the tapes profes- 
sionally duplicated and we try to check each one to be sure it will load 
before we send it out. 

One of the things mentioned in the article in ANTIC was the lack of 
documentation for public domain software. This is a problem we've 
been working on and we now have docu mentation available for Educa- 
tional disks 1 thru 5, Pilot 1 & 2, Best of ACE, vols 4 thru 7, Utility #1, 
Games 1 & 2, and SCOPY. More disks (and tapes) will be documented 
as time permits. 

During the past several months, a few people have sent copyrighted 
programs they wanted to exchange for material in our library. We want 
to ask those of of who are writing your own programs to put REM 
statements at the beginning of the program listing which include your 
name, address, and the words “In the Public Domain". If you wish to 
copyright the program, and yet share it with our members, then state 
that fact in the REMs. We will not exchange copyrighted material 
without license to do so. Please play fair! If YOU don't hold the 
copyright, don't send the program to us. It just costs us both time and 
money to send it back and forth. 

— Aaron C. Ness 
— Ronald J. Ness 
Librarians 


ANGLEWORMS II 


When | got my Atari, one of the first games | wrote was called 
“Angleworms”. It’s the classic ‘Blocade’ type game where you try to 
keep from running into the other guy’s worm, your Own OF walls etc. It 
was written in Basic and was slow but enjoyable, especially if the two 
players were of about equal ability. | often wanted to speed up the 
game but dreaded the thought of all the assembly language and 
debugging necessary. Then | recently purchased an Action! cartridge 
by OSS. 

Action! is a natural language for arcade style games. The language 
is compiled and fast! Instead of worrying about whether things run 
fast enough, | now have to put in delay loops between plotting of each 
pixel. The highly structured form takes a little getting use to. You have 
to put a lot more thought into writing the program but the result is ac- 
tually readable. You can return to the program a month later and follow 
it without spending an hour to outline the structure. 

You can get the flavor of Action! by looking over the source code of 
Angleworms II. The primary building block is a subroutine-like struc- 
ture called the procedure or PROC. Any parameters passed to the pro- 
cedure follow the name in parenthesis. The procedure called when the 
program is run is the last one, the one l've labeled 'Main(J. Other 
PROCS are called by simply naming them (they must have been defin- 
ed previously). 

The structure turns out to be loops within loops. The indentation 
helps you follow what constitutes a loop. Loops are also marked at the 
beginning and end by DO and OD (DO backwards). If the loop is to be 
repeated a definite number of times, the DO is preceded by a FOR... 
TO ... STEP statement. You can also get out of the loop with an EXIT 
statement, usually conditional, (part of an IF ... THEN EXIT). Other loop 
control statements are the WHILE which appears just before the DO or 
the UNTIL appearing just before the OD. These cause the loop to 
repeat WHILE a condition is true or UNTIL a condition becomes true. 

Another major construct is the statement beginning with IF and en- 
ding with FI (IF backward). Following the IF is an expression, a THEN 
and maybe an ELSE or even ELSEIF ... THEN. If the expression 
evaluates as true, all statements following the THEN up until the ELSE 
are executed. If not, all statements following the ELSE are used. The 
ELSEIF ... THEN allows more conditional expressions without going 
to another IF..FI construction. IF's will often be nested and the inden- 
tation helps you follow which condition is active at the time. 

All variables must be declared and there are three fundamental 
types, BYTE, CARD and INT. Sorry, no floating point so forget about 
those trig functions etc., just integers 0-255 BYTE), 0-65,535 (CARD) 
and -32768 to 32767 (INT). You have to be careful, especially when sub- 
tracting numbers from BYTE or CARD values; they ‘roll over’ instead of 
going to negative numbers. IF variable 
0 THEN ... has no meaning if variable is CARD because CARD is never 
negative. Another problem is fractions ... there are none! If you have an 
expression and part way through it evaluates to a fraction, you will 
lose it because the fraction will be treated as zero. The operator MOD 
(which gives the remainder of integer division) helps somewhat. 

If variables are to be valid throughout all PROC's they should be 
defined globally under the heading MODULE, otherwise they can be 
defined at the beginning of the PROC to which they apply. When defin- 
ed they can also be initalized by putting an equal sign and the value in 
brackets. Besides the fundamental types there are the extended types 
of POINTERS, ARRAYS and RECORDS. | found byte arrays to be most 
useful. | use them as | used strings in Basic. At the beginning of the 
program you can see the tune notes and duration of notes defined as 
byte arrays. 

lve not included many comments in the source because it was 
already getting so long. Programs tend to give long listings because of 
the indentation and spaces necessary to outline the structure. You 
could do away with a lot of this but it tends to get unreadable. The 
editor has a find command which helps you get to any portion of the 
source quickly. The editor also allows very long line lengths (240 
characters) and lets you shift the viewing window over past 40 col- 
umns as well as shifting individual lines left when you enter more than 
40 columns. | find it difficult to keep track in my mind of what | can't 
see on the screen and end up with very jagged listings, wasting even 
more space when printed. So, lve arbitrarily limited myself to 40 col- 
umns. 

A really great feature of Action! is the fact that it is on cartridge, flip- 
ping back and forth between the editor and compiler is instantaneous 
— no disk accesses. Both the source and compiled object code are 
resident in memory at the same time and I’ve found it difficult (but not 
impossible) to clobber the source. | suppose a program which doesn't 
use any of the Action! library might run as a binary file. You are not 
likely to write a program without using at least one library routine 
which include most input, output, graphcs and sound statements like 
Basic plus some additional 'goodies' like SndRst, Zero, Setblock and 
Moveblock. This means you need the Action! cartridge to run the pro- 
grams. 
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The editor is a screen editor and better than the Basic editor. You 
can even have a split screen, working in two different windows. l find 
the cut-and-paste feature especially useful. The compiler is fast, tak- 
ing only a few seconds to compile most programs. The source of 
“Angleworms II’ takes 99 disk sectors while the object takes 68. One 
reason for the length of the program are many embelishments | made 
to the original. | had the rudimentary program working when the 
source was only 25-30 sectors long. Because of the cartridge, Action! 
is one of the few higher level languages ! might consider using witha 
cassette based system. 

Angleworms can be played by two players or by one against the 
computer. Using joystick 1 you can choose the number of players, dif- 
ficulty or final score. Move vertically to select the variable and left or 
right to change the value. Press fire to start the game. The second 
player uses joystick #2. You can't run into anything including your own 
worm (you can't ‘go back’ on yourself). The worms will gradually 
lengthen as time goes on. You have five shots (fire button) which will 
blast a path through anything, (use them sparingly). After each colli- 
sion the score of the player who didn't collide is increased depending 
on the time elapsed. Pressing SELECT at this time will return you to 
the choices so you can change the difficulty level or final score in 
midgame. Pressing OPTION will start a new game. 

l've still neglected to mention a lot of the features of Action! | 
especially like the ability for bit manipulation including left and right 
shifts as well as the ability to assign memory locations directly to 
variables. Notice the assignment of consol to location 53279 in the 
global variables. After this assignment the consol keys can be used 
directly in a conditional statement like 'UNTIL consol = 5’. Machine 
language can be inserted also. I've used a display list interrupt se- 
quence to change colors for the bottom part of the screen (see PROC 
Bkgd(). By the way, | have not implemented the attract mode for this 
process so don't leave the program unattended for a long time. 

In summary, I’m quite pleased with Action! It's perfect for designing 
arcade style games and the library of routines makes programming 
them quite straight forward. The structured style takes some getting 
use to but makes the code more readable. The best thing though is the 
fast speed! Being on cartridge, everything is immediately available, a 
real blessing when working with a compiled language. 

— Stan Ockers 


ERACE 


ACE Educational disk NO.5 

Our educational disk #5 is now ready. There are some very good pro- 
grams on it for students of all ages. There are spelling and counting 
games for the younger set, and there are word and math drills to 
challenge just about anyone. We want to thank those who have taken 
the time to write these programs and send them to us, for without 
them these disks could not be possible. 

Following is a list of the programs on the disk. 

OLDMAC.MAY — By Stan Ockers — A counting and matching 
game for pre-schoolers and early primary grades. 

ATRAIN — By Stan Ockers — An animated spelling game for lower 
primary grades (K-2). 

ALGEBRA! — By John R. Kelley — An elementry algebra drill to 
test knowledge of the distributive axiom of multiplication with respect 
to addition. 

ALGEBRA? — By John R. Kelley — Another algebra drill. Determine 
the bi-nomial roots of simple polynomials. 

SCRAMBLE.JK — By John R. Kelley — Unscramble the letters to 
spell the word correctly.(6th grade-adult) 

WORDTROUB.LE — By Wayne Real — A homonym word game re- 
quiring you to put the correct word in a sentence. 

EXPANSION — By Wayne Real — Determine the value of each 
"house" of a number, then add them up to arrive at the original 
number. 

COUNTING — By Wayne Real — A fun addition or counting game 
for 1st or 2nd graders. Answer the problem correctly and be visited by 
a friendly alien. 

ESTIMATI.ON — By Wayne Real — Visually assess the size, 
number, and co-ordinate relationships between lines, shapes,and 
dots. 4th grade-adult ' 

We have recieved some programs from a sister club in Australia to 
help us start another disk, so keep those programs commimg and 
we'll see what happens on disk #6. Have fun learning until nest time. 

— Robert Browning 
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ATARI PLAVER-MISSILE GRAPHICS IN 


bv Philip C. Sever 

For Basic programmers who have wanted to trv adding some plaver- 
missile graphics to their programs, but have shied awav because it 
seemed just too complicated, take heart, this one's for vou. 

I have read manv articles and other books on graphics which often 
talked about PM graphics, but never have l read a book which is so 
easv to understand vet so thorough. 

This book is written for the beginning to intermediate programmer 
who wants to know how to begin using the PM graphics capabilities of 
the Atari. It assumes you know some of the basics of programming, 
yet you are guided through each necessary step of PM programming 
by well explained text, diagrams, questions, and sample programs. It 
shows you how to design and store a player image. The author's use 
of strings makes animation simple (although there are better ways to 
handle the strings), and the joystick routines are simple. 

There are subroutines for adding sound, detecting collisions, and 
player set up. Most of the memory locations needed for PM programm- 
ing are noted and explained. 

You will not get machine speed animation using the routines from 
the book, but that is not the author's intention. He lets you know there 
are machine subroutines which can improve program speed. Once you 
have completed the book you will be able to read those articles on 
"fast basic PM graphics" and understand them. 

For those of you who have wanted to try PM graphics in BASIC, but 
you haven't been able to put together the bits and pieces from all the 


articles and books you've read, try this one you'll like it. 
— Robert Browning 


FUNCTION KEYS 


If you've had your Atari for awhile, and have begun to do more ad- 
vanced programs, you have probably noticed the Atari lacks function 
keys. This can be particularly annoying if you need to print a command 
without typing it. This program can help relieve this annoyance. 

Type in the Function Key Editor and SAVE it. Then RUN. the pro- 
mpts should be self-explanatory. If you don't use the defaults, just 
enter the commands for the desired function keys. After all the pro- 
mpts are done, the program saves a file under the filename you 
designate. Then press SELECT to reboot the computer or press 
START to end the program. If you saved the file under AUTORUN.SYS 
then reboot the Atari. If you didn't, then go to DOS and use the Binary 
Load option. 

To use the program, first type CTRL A and press START, SELECT or 
OPTION. If you typed the program correctly, the computer will res- 
pond with the message for that key. | know your next question, “Why 
do we have to press CTRL A?" Well, the console keys use location 
53279, which is also used for the OS keyclick routines. We use the 
CTRL A to verify you are going to press one of the console keys. If you 
accidentally type or print CTRL A, don't worry. Just make sure you 
don't press any of the console keys until you type or print something 
else. If we didn't use the CTRL A, the function key operation would be 
very erratic. One word of caution, this program uses immediate mode 
VBI in Page 6, so watch out for other VBI routines! 

Note: This program is RESET protected so the only way to turn it off 
is to go to DOS and use the B option. If the screen flickers when you 
use this routine, don't worry, it is normal and won't hurt anything. 

— Greg Menke 





IYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line” 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


sing & Design services 
le.  ' 
30 East 13th Avenue | Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books 


Volume 1 are bound issues of the ACE Newsletter from the first issue, 
Oct 80 to June of 1982 


Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 

45-602 Apuapu St 

Kanoehe, HI 96744 

SortFinder 1.2 

Composite index of Atari related articles from 5 popular computer 
periodicals from Apr “81 to June “83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 


2660 S.W. DeArmond 
Corvallis, OR 97333 


" ATARI 
A Computer 


ti ENTHUSIASTS mit 
2662 Vine Maple Dr Eugene OR 97405 


FIRST 
CLASS 
MAIL 











Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


President 20€ A if To 502 oo An cc C Kirt Stockwell 
4325 Sean , Eugene, OR 97402 / 503-689-5355 

VIGSPIeSi Ia 91.272718 DL De OA SARRIA Larry Gold 
1927 McLean Blvd., Eugene, Or 97405 / 503-686-1490 

Secretary. ww E A FIE Ufer Dano Bruce Ebling 
1501 River Loop #1, Eugene, OR 97404 / 503-688-6872 

BIDAR Outs An UM DO Ta VÈ YA Ron and Aaron Ness 
374 Blackfoot, Eugene, Or 97404 (503)689-7106. 

GOEditót... ARA (ORO an RAE. Pon non Mike Dunn 
3662 Vine Maple Dr., Eugene, Or 97405 / 503-344-6193 

GoEditòt enan ML AT Mon ale anou oua Jim Bumpas 
4405 Dillard Rd., Eugene, Or 97405 / 503-484-9925 

E.R.A.C.E. (Education SIG Editon nwa. soi. Yo. en Ali Erickson 
295 Foxtail Dr., Eugene, Or 97405 / 503-687-1133 

E.R.A.C.E. Corresponding Secretary .............. Robert Browning 


90 W. Myoak, Eugene, OR 97404 / (503)689-1513 


Send 27c stamps or coin (50c overseas) to the Ness' for the new, up- 
dated ACE Library List —new in Feb 84! 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2 double density 
Percom disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov '82 issue 
for complete details. 


